' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|66e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-( ֲŠ跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`# d ֠z# u`MON ; ; DBUG1 : #"Q" DBUG2  ; DBUG2 #$8D ERROR MON ; ERROR BELL MON ; TRCMODE PRINT  8D ! "ADDRESS OF ROUTINE TO TRACE:"  00 GETLNZ+8NO PROMPT CHAR #0 BLKDEL "GETNUMCONVERT NUMBER TO BINARY $3E; ; MON : #0 RUNMODE CROUT #")" PROMPT GETLNZ ZMODE #0 BLKDEL #"$" DEBUG1  FAKEMON MON ; DEBUG1 #"T"TRACE MODE DBUG0 TRCMODE MON ; ; DBUG0 : #"P"SET PARAMETERS MODE DBUG1 PARMS DELX ; ; DEBUG : HOME PRINT  8D8D  "LAZER SYSTEM'S"  8D  "INTERACTIVE"  8D "DEBUGGER"  8D8D * "(C) 1980, LAZER SYSTEM'S VERSION 1.0" 8D8D8D00 #$0 ACC XREG YREG STATUS #7 DBUGLP BRKPT,X  DBUGLP LOOP(ADRL),Y PRNTDONE $FDED ADRL PRNTLOOP ADRH PRNTLOOP ; PRNTDONEADRL PRNDN0 ADRH ; PRNDN0 ADRL $105,X ADRH $106,X ;        ; ; ; BLKDEL IN,Y #" " BLKDELX  BLKDEL ; BLKYSAV ; FAKEMON GETNUM YSAV #$17 ; FAKEMON2 RESETZ CHRTBL,Y FAKEMON2 #$15 FAKEMON3 MODE #0 YSAV BL1 ; RESETZ :  ; ; ; PRINT      ;  $105,X ADRL $106,X ADRH #1 ; PRNTUT ; ; PRYX2 CROUT PRNTYX #0 #"-" COUT ; ; PRBYTE     PRHEXZ  ; PRHEX #$F PRHEXZ #$B0 #$BA COUT #6 ; COUT DISPMODE COUT0  $FDED ; COUT0  ; ; FAKEMON3TOSUB OKUP3 :        ; ; ; ADDRESS NOT FOUND, GO TO NEXT ; LABEL. ; NOTIT SYMTBL SYMSIZE SYMTBL NOTIT0 SYMTBL+1 ; NOTIT0 LOOKUP0 ; NOTFND #0 FOUND        ; ; CROUT #$8D CODR NOTIT ; ; TEST FOR "#" ; #0 (SYMTBL),Y #'#' NOTIT ; ; LABEL WAS FOUND ; ; INVERSE INVFLAG LOOKUP1 (SYMTBL),Y #$80 COUT  CHARSIZE LOOKUP1 #1 FOUND #$FF INVFLAG ; ; ; AVOID STACK PROBLEMS ; LO     ; DISPMODE NOTFND FMTSAVE NOTFND #$21 NOTFND ; LOADDR HIADDR #$0 SYMTBL SYMADR SYMTBL+1 ; LOOKUP0 #0 (SYMTBL),Y NOTFND CHARSIZE (SYMTBL),Y LOADDR NOTIT  (SYMTBL),Y HIAD PCINC2 ; NBRNCH SAVE  *+5 PCINC3 ; INITBL  NBRNCH BRANCH ; ; ; RESTORE STATUS  ACC RESTR1 XREG YREG   ; ; SAVE ACC XREG YREG   STATUS  SPNT   ; ; LOOKUP :  5 STATS RGDSP4 RTBL1,X COUT  ; RGDSP4 RGDSP5 RGDSP6 #" " COUT  RGDSP6 #$FF INVFLAG  ; RTBL "AXYPS" RTBL1 "CZID" $80,$80  "VN" ; ; BRANCH #1 (PCL),Y PCADJ3 PCL   *+5 #" " COUT #""" COUT ACC #$80 RDSP3 #" " RDSP3 #""" COUT #" " COUT RDSP4 ; RDSP3 COUT #""" COUT ; RDSP4 : ;  RDSP1 ; #" " COUT INVERSE INVFLAG #7 STATUS STATS #9 RGDSPXJMP ; RTNJMP RTNH  RTNL  REGDSP : CROUT RGDSP1 :    #" " COUT    #ACC A3L /ACC A3H #$FB ; RDSP1 #" " COUT RTBL-$FB,X COUT #"=" COUT ACC+5,X PRBYTE #$FB RDSP4 ;  MON ; XRTI  STATUS XRTS PCL  ; PCINC2 PCH PCINC3 LENGTH PCADJ3 PCH  NEWPCL ; XJSR PCADJ2      #2 XJMP XJMPAT (PCL),Y   (PCL),Y PCH ; NEWPCL PCL ESTORE XQT ; XBRK : DISPMODE XBRK0 ; #1 DISPMODE CROUT CROUT #$81 FMTSAVE PCH PCL PRNTYX #"-" COUT #" " COUT PCL PCH LOOKUP CROUT INSTDSP MON ; XBRK0 : INSDS1 CROUT RGDSP1 : (PCL,X) XBRK #$F #$F  (PCL,X)  *+5 USRPATCH ; LENGTH #$20 XJSR #$60 XRTS #$4C XJMP #$6C XJMPAT #$40 XRTI #$1F #$14 #$04 XQ2 ; XQ1 (PCL),Y XQ2 XQT,Y  XQ1 RGETNXT ; OPRND3 #"!" OPRND4  GETDEC GETNXT ; OPRND4 TSTDEC OPRND5 GETDEC GETNXT ; OPRND5 #"*" OPRND6  GETNXT ; OPRND6 #"%" OPRND7  GETDEC GETNXT ; OPRND7 : #">" OPRND8 #"<" OPRND9LP INPUT,X #"#" OPRND0.1  INPUT,X OPRND0 ; ; OPRND0.1#"(" OPRND0  INPUT,X ; ; OPRND0 #""" OPRND1    GETNXT ; OPRND1 #"'" OPRND2    GETNXT ; OPRND2 #"$" OPRND3  GETHEX     ; ; ; ; ; ; GETOPRND: ; SYMLEN5 GETO1 OPRNDXIT ; ; GETO1 : SYMLEN5 INPUT,X #""" GETO2 OPRNDXIT ; ; GETO2 : #"'" GETO3 OPRNDXIT ; ; GETO3 : TSTDEC OPRNDLP OPRNDXIT ; ; OPRNDX (OPPNTR),Y NOTFND   #3 MNEMLOOP OPCNTR OPCOUNT,X OPXIT OPCNTHI,X OPXIT ; NOTFND SYMLEN  #0 OPCNTR  OPPNTR #3 OPPNTR NOTFND0 OPPNTR+1 ; NOTFND0 (OPPNTR),Y MNEMLOOP ; OPXIT  AMETER) TO CONTINUE"  00 ;       TRCMD3 ; ; ; ; ; ;  SCRNMEM $400 ;  $10+*&$FFF0 ; USRPATCH ;  0 TSTB0 PCL BRKPT,X TSTB1 PCH BRKPT+1,X TSTB2 ; TSTB1  #8 TSTB0 ; TSTBXIT :    ; TSTB2 PRINT  8D8D  "BRKPT ENCOUNTERED AT $"  00 PCH $FDDA PCL $FDDA PRINT  8D ) "HIT SPACE (OR PARD8D  "BRKPT #4:"  00 INVERSE INVFLAG BRKPT+7 $FDDA BRKPT+6 $FDDA #$FF INVFLAG ; PRINT  8D8D  "(ZERO QUITS)" 8D8D8D00 ;  ; ; TSTBRKPT: ; DOBRK TSTB3  ; ; TSTB3 : #FALSE DOBRK   ; #PRINT  8D8D  "BRKPT #2:"  00 INVERSE INVFLAG BRKPT+3 $FDDA BRKPT+2 $FDDA #$FF INVFLAG ; PRINT  8D8D  "BRKPT #3:"  00 INVERSE INVFLAG BRKPT+5 $FDDA BRKPT+4 $FDDA #$FF INVFLAG ; PRINT  8 $600,X SCRNMEM+$300,X $700,X  RSTSC0     ; ; ; %; DSPBRKPT- DISPLAYS THE BREAKPOINTS ; DSPBRKPT: ; ; PRINT  8D8D  "BRKPT #1:"  00 INVERSE INVFLAG BRKPT+1 $FDDA BRKPT $FDDA #$FF INVFLAG ; RNMEM+$100,X $600,X SCRNMEM+$200,X $700,X SCRNMEM+$300,X  SVSCRN0     ; ; "; RSTSCRN- RESTORES SCREEN MEMORY ; RSTSCRN : ;    ; #0 RSTSC0 SCRNMEM,X $400,X SCRNMEM+$100,X $500,X SCRNMEM+$200,X BRKPTNUM $3E BRKPT,X $3F BRKPT+1,X ; ; SBXIT : #23 CV RSTSCRN  ; ; ; ; ; '; SAVESCRN- SAVES A COPY OF THE APPLES ; SCREEN MEMORY. ; SAVESCRN: ;    ; #0 SVSCRN0 : $400,X SCRNMEM,X $500,X SC 00 KEYIN $FDED #"0" PARMS10 SBXIT #"5" PARMS10 PRINT  8D  "ENTER ADDRESS OF BRKPT #"  00 $FDED #$FCONVERT TO A #  #1 BRKPTNUM #":" $FDED GETLNZ+8GETLN W/O PROMPT #0 BLKDEL GETNUM BRKPTNUMARMXIT #23 CV RSTSCRN  ; ; PARMS0 : #"C" SETBRKPT ; ; PARMXIT #23 CV RSTSCRN  ; ; ; %; AT THIS POINT, SET THE BREAKPOINTS ; ; SETBRKPT: DSPBRKPT PARMS10 PRINT  8D ( "WHICH BRK PT DO YOU WISH TO CHANGE?"  FAKEMON PARMXIT ; ; PARMS1 : #"A" *+5 PARMS ; #"D" STPJMP PARMS3 PARMS ; ; STPJMP #$FF  PARMXIT MON ; ; ; PARMS3 : #"A" PARMS0 ; ; TOGGLE DISPLAY MODE ; DISPMODE #$1 #$1 DISPMODE PAVESCRN HOME PRINT  8D8D  " A) TOGGLE DISPLAY MODE"  8D  " B) SET BREAK POINT"  8D  " C) RETURN"  8D  " D) QUIT"  8D  " $) APPLE MONITOR COMMAND"  8D  ":"  00 GETLNZ+8NO PROMPT #0 BLKDEL #"$" PARMS1  MOVE TO PCL,PCH PCL $3F PCH #TRUE DISPMODE ; TRCMD0 STEP KEYBRD TRCMD0 KEYSTRB #" " TRCMD2 TRCMD3 KEYBRD TRCMD3 KEYSTRB #" " TRCMD2 TRCMD0 ; TRCMD2 : PARMS TRCMD3 ; ; ; ; PARMS : ; SMTBL #0 PRTNUM ; PRTNXIT       ; ; (; OPFREQU- PRINT THE OPCODE FREQUENCIES ; OPFREQU :      ; #0 PMSG1 MSG1,X PMSG1X COUT  PMSG1 ; MSG1 8D8D8D  " OPCODE FREQUENCIES:" 8D8D00NUM+1 PRTDEC COUNTER COUNTER #10 PRTNUM0 #$8D COUT #0 COUNTER   #14 PRTSPC #" " COUT  PRTSPC   ; ; PRTNUM0 : #" " COUT  (SYMTBL),Y   (SYMTBL),Y PRTNXIT SYMTBL+1  SY; PRTSYM- PRINTS AN INDIVIDUAL ; SYMBOL'S XREF. ; PRTSYM :      ; #$8D COUT #0 PRTNAME (SYMTBL),Y COUT  #8 PRTNAME ; #" " COUT #0 COUNTER ; PRTNUM (SYMTBL),Y NUM  (SYMTBL),Y NXTAVAIL+1 LOOPP PNTR2 NXTAVAIL LBL7 PNTR2+1 NXTAVAIL+1 LOOPP ; LBL7 PNTR1 #12 PNTR1 LOOP4 PNTR1+1 ; LOOP4 : PNTR1 NXTAVAIL PNTR1+1 NXTAVAIL+1 LOOP1 ;       ; ; ; ; ;    ; #ENDPGM PNTR1 /ENDPGM PNTR1+1 ; LOOP1 PNTR1 PNTR2 PNTR1+1 PNTR2+1 ; LOOPP CMPALF LOOP2 EXCHNG ; LOOP2 PNTR2 #12 PNTR2 LOOP3 PNTR2+1 ; LOOP3 PNTR2 NXTAVAIL PNTR2+1 R1),Y  (PNTR2),Y (PNTR1),Y  (PNTR2),Y  EX1  ; ; CMPALF #$FF SYMLEN  ; CMPAF1  CMPA2 (PNTR1),Y (PNTR2),Y CMPAF1 C=0 ; CMPA2  ; ; #; SORT SYMBOL TABLE ALPHABETICALLY ; SORT :  IT #" " ; PRTIT COUT   PRTD0       ; ; ; TBLLOW 1  10  100  1000  10000 ; TBLHI 1  10  100  1000  10000 ; ; ; ; SYMBOL TABLE SORT ROUTINES ; EXCHNG SYMLEN5   ; EX1 (PNT#4 LEAD0 ; PRTD0 #"0" DIGIT ; PRTD1 NUM TBLLOW,X NUM+1 TBLHI,X PRTDIG NUM+1 NUM TBLLOW,X NUM DIGIT PRTD1 ; PRTDIG : DIGIT #0 PRTIT #"0" TSTDIG LEAD0 PRTIT ; TSTDIG LEAD0 PRTAP),Y  #0 (NXTHEAP),Y  (NXTHEAP),Y  NXTHEAP #4 NXTHEAP SRCHDONE NXTHEAP+1 ; SRCHDONE      ; ; ; ; ; PRTDEC- PRINTS THE INTEGER ; CONTAINED IN LOCATION "NUM" ; PRTDEC : ;      ; (SYMTBL),Y ADDLN2 ; ADDLN0 (SYMTBL),Y   (SYMTBL),Y SYMTBL  SYMTBL+1 #3 (SYMTBL),Y ADDLN0 ; ADDLN2 : NXTHEAP+1 (SYMTBL),Y NXTHEAP  (SYMTBL),Y ; #0 LINENUM (NXTHEAP),Y  LINENUM+1 (NXTHEL INPUT,X (SYMTBL),Y NXTENTRY   #8 SRCHLBL ADDLINE ; ; NXTENTRY#0 #0  SYMTBL #12 SYMTBL NXTENT0 SYMTBL+1 ; NXTENT0 SYMTBL NXTAVAIL SYMTBL+1 NXTAVAIL+1 SRCHLBL SRCHDONE ; ADDLINE #11 #"," NOTLBL #")" NOTLBL #$8D NOTLBL #"#" NOTLBL #"=" NOTLBL INPUT,Y   STORLP ; NOTLBL  ; #" " FILLBLK INPUT,Y  #8 FILLBLK ; #0 #0 #ENDPGM SYMTBL /ENDPGM SYMTBL+1 ; SRCHLBBLE. "; IF FOUND THE REFERENCE IS NOTED ; IN THE HEAP. ; PUTLABEL:    ; #0 STORLP INPUT,X #"+" NOTLBL #"-" NOTLBL #"*" NOTLBL #"/" NOTLBL #"^" NOTLBL #"|" NOTLBL #"&" NOTLBL #" " NOTLBL C ; NOTDEC ; ; ; ; ; ; TSTDEC : #"0" NOTDEC #"9"+1 NOTDECML ZERO  ; NOTDECML   ; ZERO 0 ; ; ; ; ; PUTLABEL- TRANSFER LABEL DOWN ; TO LOCATION $200 AND THEN ; SEARCHES FOR THE LABEL IN ; THE SYMBOL TAGETS ALL HEX DIGITS ; GETHEX : ; INPUT,X TSTDEC NXTHEX #"A" NOTHEX #"F"+$1 NOTHEX ; NXTHEX GETHEX ; NOTHEX ; ; ; ; $; GETDEC- RETRIEVES ALL DECIMAL #'S ; GETDEC : ; INPUT,X TSTDEC NOTDEC  GETDE ; OPRND8  GETNXT ; OPRND9 : ; PUTLABEL ; ; #; SEE IF THERE ARE ANY MORE LABELS ; ON THE CURRENT LINE ; GETNXT INPUT,X #$8D OPRNDXIT #" " OPRNDXIT #")" OPRNDXIT  OPRNDLP ; OPRNDXIT ; ; ; ; GETHEX- O7-1 PSO2L-1 PSO2L-1 GETMANY-1 T PSO2L-1 NORMLOPS-1 NEVER-1 PSO1L-1 TSTIF-1 TSTELFI-1 TSTELFI-1 PSO1L-1 PSO1L-1 PSO7-1 DODA-1 PSO7-1 PSO7-1 DOUSR-1 PSO7-1 NEVER-1 NEVER-1 ; ; ; PSADRSH GETMAADRSL,X   ; ; PSADRSL GETMANY-1  DOEQUATE-1 Q PSO1L-1 PSO1L-1  DOEQUATE-1 Q PSO2L-1 PSO2L-1 PSO2L-1 PSO2L-1 PSO7-1 PSO7-1 PSO7-1 GHXS-1 BYTSTR-1 Y GETMANY-1 T PSO7-1 DODFS-1 PSO2L-1 NEVER-1 PS *-OPVALUES ; OPADRL PSEUDOPS-1 SPCLOPS-1 NORMLOPS-1 SWEETOPS-1 SNGLOPS-1 BRANCHES-1 ; OPADRH PSEUDOPS-1 SPCLOPS-1 NORMLOPS-1 SWEETOPS-1 SNGLOPS-1 BRANCHES-1 ; ; ; ; PSEUDOPS #$D8  PSADRSH,X  PS ;: CHK FOR BRANCH ;: GET7 YSV2 PAG3+9 #NUMOPRND-1 GETOLOOPOPVALUES,X DOGET0  GETOLOOP ; ; $FF here ; NEVER  ; DOGET0 OPADRH,X  OPADRL,X  PAG3+9  ; ; "OPVALUES $FF,$D8,$D4,$BF,$B2,$96 NUMOPRND' FND4 #$D FND4 FND2 ; FND4 MCNT PAG3+$9 YSAV      ; ; FND3 : MCNT MLUP  03 MLUP FND1 MLUP+$1 FND1 ; FND2 : YSAV   ; ;: ;: ;: GETO-GET OPERAND ;: GETO BLKDEL ;:;: ;: ;: FNDM-CHECKS TO ;: SEE IF CURRENT ;: MNEMONIC IS ;: VALID. ;: FNDM YSAV #$80 MCNT ; FND1 : #0 YSAV (MLUP),Y FND2 ; FND5 PAG2,X TSTLConvert L/C (MLUP),Y FND3   03 FND5 PAG2,X #' YSV2 #$B MOVLNLP PAG2,Y PAG3,X   0D MOVLNLP ; #$8 #0 PG31 20 TX28 ;: CMPRSLN PG31,Y PG31,X   #$D CMPRSLN ;: YSAV TX28 01 FINDLEN PAG3,Y  #$D FINDLEN TX36 PAG3 FLSH ;: : TX14 :   PAG2,Y BLKDEL PAG2,Y '; FIXCOMNT 0D SQUASHLN EROR # 'ILLEGAL BLANK IN OPERAND FIELD'  00  GETL ; FIXCOMNT#";" PAG2,Y ; SQUASHLN  SQSHLP PAG2,Y PAG2,X   #$D SQSHLP ; OGETO ; MNELKUP MNTBL MLUP MNTBL+$1 MLUP+$1 FNDM ERR0 ;: DOGETO : GETO CHKAMODE EROR 'ILLEGAL'  ' OPERAND.'  00 GETL ;: CHKAMODECHKA TX14 EROR 'ILLEGAL '  'ADDRESSING' ' MODE.'  00 GETL ;: ; FLSH ; ; ; GETMNE : BLKDEL ; ;: TX12 PAG2,Y TSTL MNELKUP #'.' MNELKUP #'=' TX130X ; ;: ERR0 EROR 'ILLEGAL '  'MNEMONIC.'  00 GETL ;: ; ; ; "=", FORCE MNEMONIC ; TX130X #$F6 PAG3+9  DLOOP ; OPFREQU  ; ; ; ; OPCOUNT 120 OPCNTHI 120 ; ENDPGM :   ENCES -------------------"  8D00 ; PMSG2X : PRTLOOP : SYMTBL  SYMTBL+1  PRTSYM  SYMTBL+1  SYMTBL ;  SYMTBL #12 SYMTBL CHKSYMTB SYMTBL+1 ; CHKSYMTB: SYMTBL NXTAVAIL SYMTBL+1 NXTAVAIL+1 PRT " 0,0,0,0 ; POPCODE : LINENUM ENDPGM+20 LINENUM+1 ENDPGM+21 ; #ENDPGM+12 SYMTBL /ENDPGM+12 SYMTBL+1 ; #0 PMSG2 MSG2,X PMSG2X COUT  PMSG2 ; MSG2 8D8D I "SYMBOL DEFINED -------------------- REFERNTR1 SYMTBL /ENDPGM PNTR1+1 SYMTBL+1 SORT ;  NXTAVAIL #12 NXTAVAIL PRTS0 NXTAVAIL+1 ; ; ; PRTS0 : ; #0 FILLOOP DATA,X ENDPGM,X  #24 FILLOOP POPCODE ; DATA " " 0,0,0,0 "LINES: POPF3 ; #0 COUNTER #$8D COUT POPF4 ; POPF3 #" " COUT ; POPF4 :   PNTR1 #3 PNTR1 POPF0 PNTR1+1 POPF0 ; POPFX      ; ; ; ; ; ; ; PRINT XREF ; PRTSYMBL: ; #ENDPGM P ; PMSG1X #0 COUNTER #MNEMNC PNTR1 /MNEMNC PNTR1+1 ; POPF0 #0 POPF1 (PNTR1),Y POPFX COUT  #3 POPF1 #":" COUT #" " COUT OPCOUNT,X NUM OPCNTHI,X NUM+1 PRTDEC COUNTER COUNTER #6;: IDX1 PAG2,Y 06 PAG3+$A IND9 ;: IDX2 PAG2,Y #7 PAG3+$A IND9 ; ; ; #; GADR- Get an address expression ; and check its syntax. ; GADR #0 OPRND #NUMTKNS-1 M PAG2,Y GADRLOOPTOKENS,X GOTTOKEN AG2,Y ', INDX ') ABS2   ;: ABS2 01 PAG3+$A  IND9 ;: ;: ;: HANDLE INDEXED ;: X OR Y ;: INDX PAG2,Y #$DF PAG2,Y 'X IDX1 'Y IDX2   EROR  'ONLY "X" OR "Y" ALLOWED'  00 GETL ; DOINDRCT O; INDRCT0 INDRCT #3  DOINDRCTPAG3+10 ;: IND9 PAG2,Y #' ' IN10 #$D IN10   ;: IN10 :   ;: ;: ;: HANDLE ABSOLUTE ;: INDEXED, ETC.. ;: ABSE GADR ABS1  ;: ABS1 P#$FD")," F INDRCTY I; BADIND  EROR % 'MUST USE ",X)", "),Y", OR ")"',0 GETL ; ; XINDRCT PAG2,Y #')' BADIND #4 DOINDRCT O; INDRCTY PAG2,Y #$DFConvert to U/C PAG2,Y #'Y' BADIND #5 IND9 ;: ;: ;: ;: ;: HANDLE INDIRECT ;: ADDRESSING MODE ;: INDR GADR IND1  ;: IND1 PAG2+1,Y TSTL PAG2+1,Y  PAG2,Y  PAG2,Y  #$D4",X" D XINDRCT X #9") " # INDRCT #$1C")" " INDRCT0 I IMMD-1 INDR-1 ASCI-1 ASCI-1 ; NM12  EROR $ 'ILLEGAL SYMBOL IN OPERAND FIELD'  00 GETL ; ;: ;: ;: ;: ;: HANDLE IMMEDIATE ;: ADDRESSING MODE. ;: IMMD 02 PAG3+$A  GADR IMM1  ;: IMM1 NM12 ; JMPABSE ABSE JMPIMHX IMHX ; DONORM #5 JMPABSE J AMH,X  AML,X   ; LEADIN '#/("''*$!%<>' NUMLEAD *-LEADIN ; AML IMMD-1 IMMD-1 INDR-1 ASCI-1 ASCI-1 ; AMH IMMD-1 ;: HANDLE BRANCHES. ;: BRANCHESGADR BRO1  ;: BRO1 01 PAG3+$A  IND9 ;: ;: ;: ;: HANDLE "NORMAL" ;: MNEMONICS. ;: NORMLOPSPAG2,Y #NUMLEAD-1 MNRMLOOP LEADIN,X DONORM  NRMLOOP NTSTD JMPIMHX JTSTL PAG2,Y ', SWO7   ;: SWO7 GADR  IND9 ;: ;: ;: ;: ;: HANDLE "SPECIAL" ;: MNEMONICS. (ASL, ;: LSR,ROR,ROL) ;: SPCLOPS PAG2,Y #$D SPO1 '; SPO1 NORMLOPS ;: SPO1 00 PAG3+$A   ;: ;: ;: ; ; POP RETURN ADDRESS ; SWTREG :   EROR  'ILLEGAL SWEET-16 REGISTER'  00 GETL ; ;: ;: SWO5 IND9 ;: ;: ;: HANDLE "SET" ;: SW16 MNEMONIC. ;: SWO4 0A PAG3+$A PAG2,Y TSTH SWO8 SWTREG ;: SWO8 PAG3+$A SWO3 ;: ;: SW16 INDIRECT ;: MODE. ;: SWO2 09 PAG3+$A  PAG2,Y TSTLConvert to U/C 'R BADSWT ;: SWO3 PAG3+$9 #$BE SWO4 ;: ;: TEST FOR CORRECT ;: REGISTAR VALUE. ;:  PAG2,Y TSTH SWO5 DDR- ;: ESSING MODES. ;: SWEETOPSPAG2,Y TSTLConvert U/C #'R' SWO1 '@ SWO2 ; ; POP RETURN ADDRESS ; BADSWT :   EROR  'ILLEGAL SWEET-16 OPERAND'  00 GETL ; ;: ;: SW16 REGISTER- ;: DIRECT ADDRESS ;: SWO1 08;: ;: ;: HANDLE IMPLIED ;: ADDRESSING. ;: SNGLOPS PAG2,Y #$D SNO2 '; SNO2 ; ; POP RETURN ADDRESS ; OPNOTALW  EROR  'OPERAND NOT ALLOWED'  00  GETL ;: SNO2 00 PAG3+$A   ;: ;: ;: ;: HANDLE SW16 AU  PSO1L ; BADEQU #0 EROR ! 'EQU/EPZ MUST HAVE A LABEL',0 A  GETL ; TSTELFI PAG2 #' ' BADIFEL PSO7 ; TSTIF PAG2 #' ' BADIFEL PSO1L ; BADIFEL EROR  'LABEL NOT ALLOWED HERE',0   ; ; ;:  T PSO2L-1 NORMLOPS-1 NEVER-1 PSO1L-1 TSTIF-1 TSTELFI-1 TSTELFI-1 PSO1L-1 PSO1L-1 PSO7-1 DODA-1 PSO7-1 PSO7-1 DOUSR-1 PSO7-1 NEVER-1 NEVER-1 ; ; PSO7 SNGLOPS ; DOEQUATEPAG2 #' ' BADEQNY-1  DOEQUATE-1 Q PSO1L-1 PSO1L-1  DOEQUATE-1 Q PSO2L-1 PSO2L-1 PSO2L-1 PSO2L-1 PSO7-1 PSO7-1 PSO7-1 GHXS-1 BYTSTR-1 Y GETMANY-1 T PSO7-1 DODFS-1 PSO2L-1 NEVER-1 PSO7-1 PSO2L-1 PSO2L-1 GETMANY-1: TSH1  ;: TSH2  ;: ;: ;: ;: TSTL- TEST FOR ;: LETTER. ;: TSTL 'A TSL1 #'Z'+1 TSTL2 #'a' TSL1 #'z'+1 TSL1 #$DF ; TSTL2 :   ;: TSL1  ;: ;: ;: IMHX-IMMEDIATE ;: HEX ADDRESSING T2 #' ' GST5 #',' GST5 #$D GST1 ; ;: GST5  ;: ;: ;: ;: TSTH-TEST FOR HEX ;: DIGITS. ;: TSTH #'0' TSH1 ': TSH2 #'a' NU0 #'z'+1 NU0 #$DF PAG2,Y ; NU0 : 'A TSH1 'G TSH2 ;NG. ;: GSTR : PAG2,Y #''' GST3 #'"' GST3 ; GST1 : EROR 'ILLEGAL' ' STRING'  00     GETL ;: GST3 DELM GST2 #$F0 GST1 PAG2,Y #$D GST1 DELM GST2  PAG2,Y DELM GSH GHX2 EROR  'NOT ENOUG'  'H DIGITS.'  00   GETL ;: GHX2 GHXS ;: GHX1 #' ' GHX3 #$D GHX3 EROR  'ILLEGAL H'  'EX DIGIT.'  00   GETL ;: GHX3  ; ; ; ; ; ;: ;: GSTR-GET STRIADDODA B ^0 ; DODASTR STRORBYT DODAADR DGSTR NXTOP ; ; BADDODA  EROR  'ILLEGAL OPERAND TYPE',0 TGETL ; ; ; ;: ;: ;: GHXS-GET HEX ;: STRING. ;: GHXS PAG2,Y TSTH GHX1  PAG2,Y TST ; ; HANDLE .DA ; DODA PAG2,Y #'#' DODABYTE O#'/' DODABYTE O#''' DODASTR D#'"' DODASTR D ; DODABYTE DODAADR GADR BADDODA B; NXTOP PAG2,Y  #',' DODA  #' ' >0 #$D BRE PAG2,Y #',' PS01C  BYTSTR ; CHKSTRNGSTRORBYT SNGLADR SGSTR CHKMORE C; ; STRORBYTPAG2+2,Y PAG2,Y >0 PAG2+3,Y A PAG2,Y >0 PAG2+1,Y A PAG2,Y >1 ; ^0  ; ^1  ; GOODDFS : PS01C  ; NOGOOD  ; ; ; GETMANY : GADR NOGOOD PAG2,Y #',' PS01C  PAG2,Y GETMANY G; ; ; ; BYTSTR : PAG2,Y #''' CHKSTRNG H#'"' CHKSTRNG H; SNGLADR GADR NOGOOD ; CHKMOATOR ;: ;: #*** Junk for the pseudo opcodes ** ;: ; PSO1L GADR PSO2L GSTR ; DOUSR PAG2,Y  #$D DOUSR    ; DODFS GADR DODFS0  PAG2,Y #',' GOODDFS G PAG2,Y GADR ; DODFS0 ;S GADRDONE A GADR BADGADR3 A; #PARTOPS-1 R PAG2,Y ENDLOOP OPERATOR,X GADRDONE A ENDLOOP E BADGADR3  ; GADRDONE  ; ; OPERATOR $D,' ;,)' PARTOPS *-OPERATOR ;  '#=^|&/*+-' |NUMOPTRS *-OPER PAG2,Y #'"' BADGADR1 A GAD20 ; ; ENDADRS OPRND GADR2   ; ; ; ; LOCCNTR : GAD20 GAD21 PAG2,Y GAD2 #NUMOPTRS-1 OPLOOP OPERATOR,X GOTOPER G OPLOOP   ; GOTOPER #PARTOP  ;: BINVAL #17 BINLOOP PAG2,Y #'0' #$FE GAD21  BINLOOP B BADGADR1  ;: APOST PAG2,Y #$D BADGADR1 A PAG2,Y #''' BADGADR1 A GAD20 ; QUOTE PAG2,Y #$D BADGADR1 A ABSLOOP A BADGADR0  ; GOTOGAD2GAD2 ; ;: LCLSPEC PAG2,Y TSTD BADGADR0 A GAD20 ; ; ; SGNDINTGPAG2+1,Y '- FIXINTGR I ; FIXINTGR#6 GAD7 PAG2,Y TSTD GOTOGAD2 O GAD7 GADR2 ase e GETID PAG2,Y TSTL PAG2,Y TSDM GOTOGAD2 O GETID EROR  'LABEL TOO LONG',0 L  ; ; ISDIG #1 OPRND FIXINTGR I; ; ;: ABSVAL #5 ABSLOOP PAG2,Y TSTH GOTOGAD2 O SGNDINTG-1 D BINVAL-1 I APOST-1 A QUOTE-1 Q ENDADRS-1 D; ; GADRH LOCCNTR-1 ABSVAL-1 B LCLSPEC-1 L SGNDINTG-1 D BINVAL-1 I APOST-1 A QUOTE-1 Q ENDADRS-1 D; ; ; ; ; ISID #8 OPRND PAG2,YInsure upper cO GADRLOOP ATSTL ISID TSTD ISDIG  ; GOTTOKENGADRH,X  GADRL,X G #1 OPRND  ; ; TOKENS '*$<>!%''";' NUMTKNS *-TOKENS ; ; GADRL LOCCNTR-1 ABSVAL-1 B LCLSPEC-1 L LCLSPEC-1 LSLP6 ;   #0 SYMT LPTR SYMT+$01 LPTR+$01 ;: ;: !; Check for end of symbol table ; and end of zpage equates ; SLP1 (LPTR),Y SLP3 '# SLP7 01 EYET SLP2 ;: "; Check the current label in the !; table aga SLP5 ') SLP5 #";" SLP5 '* SLP5 '/ SLP5 '| SLP5 '& SLP5 '^ SLP5 '= SLP5 '# SLP5 ; ; ^0 PAG2,X   #$8 SLP4 (POSN),Y ;: SLP5 #' ' SLP6 PAG2,X  #$8 SN),Y #'>' >0 #'<' SLP4 ^0 LCLUP1 ; SLP4 (POSN),Y ; $; Special case for the most likely ; cases ; #'@' #27 #'@' >0 #'0' #10 #'0' >0 ; #$D SLP5 '+ SLP5 '- SLP5 ', (POSN),Y POSN POSN NEXT3 POSN+1 ; NEXT3 : POSN FND0 POSN+1 ; FND0 ; NOMORE ; ; ; ; ; Symbol table lookup routine. $; This must be as fast as possible ; ; SLUP  00 EYET SYMCNT ;: (POLPX ; FND0 : #0 (POSN),Y #$FF NOMORE ;  FNDCMP (POSN),Y PAG2,Y NEXT  #9 FNDCMP ; PCIM  'FOUND AT LINE #'  00 ; PINT  LNUM #$D PUTC ; ; NEXT : LNUM NEXT1 LNUM+1 ; NEXT1 : #0 BLKDEL FNDBLK PAG2,Y #' ' FNDBLK ; BLKDEL #0 ; STOLP PAG2,Y #$D STOLPX #'a' NOTUPPR #"z"+1 NOTUPPR #$DF ; NOTUPPR : PAG2+1,X   #8 STOLP ; STOLPX #8 FND0 #' ' PAG2+1,X  STO3 RESULT RESULT+$1 OP1 ; DIV3 DIV2 ; OP1 SADR OP1+$1 SADR+$1 ;       ; ; ; ; ; FIND- FINDS SPECIFIED LABEL ; FIND : STXT POSN STXT+1 POSN+1 #1 LNUM /1 LNUM+1 ; #0 MUL2 ; OP1 SADR OP1+$1 SADR+$1 ;       ; ; DIVSN     ; #$10 #$00 RESULT RESULT+$1 ; DIV2 OP1 OP1+$1 RESULT RESULT+$1  RESULT SADR  RESULT+$1 SADR+$1 DIVELIM *-DELIMTRS ; ; ; ; MLTPLY :      ; #$10 #$00 RESULT RESULT+$1 MUL2 OP1  MUL4  RESULT SADR RESULT RESULT+$1 SADR+$1 RESULT+$1 ; MUL4 RESULT+$1 RESULT OP1+$1 OP1  8BBB900 ;: ;: ; ; ; ; TSDM :     $102,X #NUMDELIM-1 DDELIMLP DELIMTRS,X ISDELIM I DELIMLP D *Hide next opcode  !-1 ; ISDELIM     ; DELIMTRS ' ,()+-;*/|^&=#',$D NUMD39495C300 ;: ILST C0C1C4C5C6C8CDCE CFC2F0D300 ;: INLS C0C1C4C8CDC2F0D0  D300 ;: IXLS C0C1D7C4C7C8C9CD  CFD4C2D6D5F0D0D2  D300 ;: IYLS C0C1C4C8CDCEC2F0 D0D1D300 ;: SWLS BCBDB2B6B3B5B400 ;: SILS BCBDB7BAB SILS ; ; WHCHTBLH ALSTnot used  ALST  ILST  ILSTnot used o INLS  INLS  IXLS  IYLS  SWLS  SILS ; ; ALST C0C1D7C4C5C6C7C8  C9CACBCDCECFD4C2  D6D5F0D0D1D2D383  8081828485868788  898A8B8C8D8E8F90  91929BLL,X HMLUP WHCHTBLH,X H MLUP+1   #0 ; CHK1 (MLUP),y BADCHK0 B PAG3+9 CHK1     ; WHCHTBLL ALSTnot used  ALST  ILST  ILSTnot used o INLS  INLS  IXLS  IYLS  SWLS o see if they are compatable ; CHKA PAG3+10 'GOODCHKimplied was already checked c#10 GOODCHK??? C#3 CHK0 PAG3+9 #$CAJMP (-) J BADCHK  GOODCHK  ; BADCHK0  BADCHK  ; CHK0 WHCHTRE ;: OF IMMEDIATE ;: ASCII DATA. ;: ASCI 02 PAG3+$A  PAG2,Y 0D ASC1 EROR ! 'ILLEGAL IMMEDIATE ASCII DATA'  00 GETL ; ASC1 IND9 ;: ;: ;: ; ; ; CHKA- compares the address ; expression with the mnemonic !; t ;: MODE. ;: IMHX PAG2,Y TSTH IMH1  PAG2,Y TSTH IMH1  PAG2,Y IMH1 20 IMH2 0D IMH2 EROR  'ILLEGAL IMMEDIATE HEX DATA'  00   GETL ;: IMH2 02 PAG3+$A  ;: ;: ;: ASCI-TAKE CA * ; ********************** ; ; DOWN : SW16 R3 ; ; TEST TO SEE IF WE ARE ALREADY ; AT THE END OF THE FILE ; R2 DOWN1 R4,$8D ; ; ; NOW LOOK FOR THE NEXT RETURN ; IN THE FILE. ; DOWN2 @R3 R4 DOWN2 R3 R1 UP1 UP2 UP3 : R3 ; ; UP1 : PRTLN  COMMND ; ; ; ; ; ********************** ; * * ; * DOWN: MOVES THE * ; * LINE POINTER TO THE* ; * BEGINNING OF THE * ; * NEXT LINE. * ; * ******** ; ; UP : SW16  R4,$8DINIT R4 WITH RETURN R3 !R1TEST TO SEE IF AT BEGINNING UP1 ; ; R3MOVE PAST RETURN ; ; NOW LOOK FOR THE NEXT RETURN ; WHICH OCCURS EARLIER IN THE ; FILE ; UP2 :  @R3 R4 UP3 R3 ENCOUNTERED. ; PRTLN1 :  @R6 R7 PRTLN2 PRTCHR PRTLN1 ; PRTLN2 : R7 PRTCHR  ; ; ; ; ********************* ; * * ; * UP: MOVES THE LINE* ; * POINTER UP ON LINE* ; * * ; *************THE LINE * ; * POINTED AT BY R3. * ; * * ; ********************* ; ; PRTLN : R7,$8D ; !; MOVE CURRENT LINE POINTER (R3) ; TO REGISTER 6 ; R3 R6 ; ; NOW OUTPUT TEXT INDIRECT THRU ; REGISTER 6 UNTIL A RETURN IS ; ; * IN PAGE TWO. * ; * * ; ******************** ; ; GETLN $FD6F SW16  ; ; ; ; ********************* ; * * ; * PRTLN:PRINT LINE. * ; * A SWEET-16 SUB- * ; * ROUTINE WHICH WILL* ; * PRINT @R4  @R2 R4 R6 INS5 R2  COMMND ; ; ; ; ******************** ; * * ; * GETLN: SWEET-16 * ; * SUBROUTINE WHICH * ; * READS A LINE OF * ; * TEXT FROM THE * ; * KEYBOARD AND THEN* ; * STORES THE TEXT * SOURCE DEST SOURCE+$1 DEST+$1 FILLD2  SOURCE FILLD1 SOURCE+$1 FILLD1 ; FILLD2 (SOURCE),Y  ; ;  ; Y REGISTAR DESTROYED (SET TO 0) ; ACC, X REG SAVED. ; ; THIS ROUTINE SHOULD BE USED !; WHEN YOU MUST FILL LARGE AREAS ; ( >256 ) OF MEMORY WITH DATA. ; FOR SMALL DATA FILLS USE THE ; INDEX REGISTARS. ; ; FILLD 00 FILLD1 (SOURCE),Y  #$FF STRCM1  STRCM2  (SOURCE),Y (DEST),Y STRCM1  ; ; HANDLE 256TH COMPARE. ; STRCM2 (SOURCE),Y (DEST),Y  ; ; ; #; FILLD - FILL DATA. FILLS A BLOCK ; FROM (SOURCE) TO (DEST) WITH ; DATA CONTAINED IN ACC. "NTED AT BY DEST THEN ; ACC WILL CONTAIN 1. "; OTHERWISE THE ACC WILL ; BE SET TO $FF. #; THE X-REGISTAR CONTAINS ; THE NUMBER OF CHARS #; IN THE STRING. ALL REGS ; ARE DESTROYED. ; STRCOMASAV   ;: ;:  LBL LBL  LCLCNT,X C FNDBAK  NXTLCL ; FWD LCLCNT,X (LPTR),y L NXTLCL ; FNDBAK #2 (LPTR),y LSADR  (LPTR),y L SADR+1 ;    ASAV   ASAV   ; NOTFND   ASAV   #1 EYET OSN),Y    ; LCLOOP #0 LPTR ENDSYM  LPTR+1  ENDSYM+1 N NOTFND ; (LPTR),y LDELM FND.ONE F; NXTLCL LPTR #4 LPTR LCLOOP  LPTR+1  LCLOOP ; FND.ONE DIR FWD ; (LPTR),y L P1 LPTR+$01 SLP1 ;: SLP3 SLPX   ASAV   ASAV  ;: ; ; ; Handle local labels ; LCLUP1 #'>'^'<' DIR ; LCLUP2 : SYMEND LPTR SYMEND+1 LPTR+1  (POSN),Y DELM #$F   (Pinst the label saved ; in pag2 ; SLP7 (LPTR),y PAG2,Y SLP2  #8 SLP7 ;: (LPTR),Y SADR  (LPTR),Y SADR+$01  SLPX ;: ; ; Move on to the next label ; SLP2 #0 LPTR #10 LPTR SL ; ; ; ; ************************* ; * * ; * SETTAB - INITIALIZE * ; * TAB STOPS TO EVERY 8 * ; * CHARACTERS. * ; * * ; ************************* ; ; SETTAB :    ; 1F 80ERE! ; #FALSE TBXSV  ; ; A TABSTOP HERE! ; TABYES #TRUE TBXSV  ; TBXSV 00 ; TABMSK 0102040810204080 ; ; ; TABS - TAB STOP ARRAY. ; TABS 0000000000000000  0000000000000000  0000000000000000  00000000000000006-BIT * ; * ARRAY. MAXLINE IS * ; * ASSUMED TO BE 256. * ; * * ; ************************ ; ; TABPOS : TBXSV COL TABYES     TABS,X  COL 07   TABMSK,X TABYES ; ; NO TAB STOP H ; ; ; ; ************************ ; * * ; * TABPOS-WHEN CALLED * ; * IT CHECKS THE ARRAY * ; * "TABS" TO SEE IF * ; * THE CURRENT COLUMN * ; * POSITION CONTAINS A * ; * TAB STOP OR NOT. * ; * "TABS" IS A 25B3 : #BLANK PUTC COL TABPOS #TRUEREACHED A TAP STOP YET? DETAB3 DETAB1CONTINUE ; ; $DETAB2 #NWLINETEST FOR NEWLINE. DETAB4 PUTC 00 COL DETAB1 ; ; DETAB4 PUTC COL DETAB1 ; ; DETABX RESTORE ACC ; * * ; ************************* ; ; COL 00 ; ; DETAB SAVE ACC 00INIT COL COL ; DETAB1 : GETC #EOF DETABXEOF? ; #TABTEST FOR TAB CHARACTER DETAB2 ; ; HANDLE TAB CHARACTER HERE. ; DETAITH BLANK CHARACTERS * ; * TAB STOPS ARE SET IN * ; * THE ROUTINE SETTAB. * ; * UNLIKE K & P'S ROUTINE* ; * THIS DETAB DOES NOT * ; * CALL SETTAB. THIS AL- * ; * LOWS THE USER TO SET * ; * THE TABS HOWEVER DE- * ; * SIRED. * #TRUE INWORD WC WRDC1 WC+$1 WRDC1 ; WRDC3 #FALSE INWORD WRDC1 ; WRDC2 PUTDEC  WC  01 ; #NWLINE PUTC   ; ; ; ; ************************* ; * * ; * DETAB-REPLACES TABS * ; * W00SET WC:=0 WC WC+$1 #FALSE"TOOLS" USES 'NO' INWORD ; WRDC1 : GETC #EOF WRDC2TEST FOR END-OF-FILE ; #BLANKTEST FOR BLANK WRDC3 #NWLINETEST FOR NEWLINE WRDC3 #TABTEST FOR TAB WRDC3 ; INWORD WRDC1 D INPUT & * ; * PRINTS THE NUMBER ON * ; * THE STANDARD OUTPUT. * ; * THE WORD COUNT IS ALSO* ; * SAVED IN WC. * ; * * ; ************************* ; ; ; WC 0000 INWORD 00 ; ; WRDCNT : SAVE ACC CNT1 NLNL:=NL+1 LNCNT1 NL+$1 LNCNT1 ; LNCNT3 PUTDEC  NL  01 ; #NWLINE PUTC   ; ; ; ; ; ************************* ; * * ; * WRDCNT - WORD COUNT. * ; * COUNTS THE WORDS ON * ; * THE STANDARD RETURNED IN NL. * ; * * ; ************************ ; ; NL 0000 ; ; LNCNT : SAVE ACC ; 00 NLSET NL:=0 NL+$1 ; LNCNT1 GETC #EOFCHECK FOR END-OF-FILE LNCNT3 #NWLINECHECK FOR NEWLINE LNTORE ACC  ; ; ; ; ; ************************ ; * * ; * LNCNT-LINE COUNT * ; * COUNTS THE NUMBER OF * ; * LINES ON THE STANDARD* ; * INPUT. * ; * LINE COUNT IS PRINTED* ; * ON STANDARD OUTPUT, * ; * ANSAVE ACC ; #$00SET NC:=0 NC NC+$1 ; CHRCN1 GETC #EOFTEST FOR END-OF-FILE CHRCN2 NC CHRCN1 NC+$1 CHRCN1 ; CHRCN2 PUTDEC  NCOUTPUT NC AS A DECIMAL #  01 ; ##NWLINEOUTPUT NEWLINE CHARACTER PUTC ; RESRACTERS FROM THE * ; * STANDARD INPUT UNTIL * ; * EOF. THE CHARACTERS * ; * ARE COUNTED AND THE * ; * COUNT IS RETURNED IN * ; * NC (NUMBER OF CHARS).* ; * * ; ************************ ; ; NC 0000 ; ; CHRCNT : R2 DOWN1 PRTLN DOWN1 :  COMMND ; ; END * ; ************************* ; ; ; PASV 00 PYSV 00 ; PUTLIN : PASVSAVE ACC PYSVSAVE Y-REG 00 PUTL1 (ZPAG),Y #EOS PUTL2 PUTC INCZ PUTL1 ; PUTL2 : PASVRESTORE ACC PYSVRESTORE Y-REG 2,X ZPAG $101,X ZPAG+$1 $102,X     ; ; ; ; ************************* ; * * ; * PUTLIN-OUTPUTS STREAM * ; * OF CHARACTERS UNTIL * ; * EOS (END-OF-STRING) IS* ; * FOUND. * ; * ; ************************ ; * * ; * PUTPRM-PUT PARAMETER.* ; * RESTORES RETURN AD- * ; * DRESS ON THE STACK. * ; * * ; ************************ ; ; PUTPRM $101,X $101-$2,X $102,X $102-$UTINE WHICH * ; * CALLED GETPRM, POPS * ; * IT OFF OF THE STACK * ; * AND STORES IT IN ZPAG* ; * * ; ************************ ; ; GETPRM $103,X ZPAG $104,X ZPAG+$1  $103,X  $104,X  ; ; ; C #EOF ENTAB6 PUTC #NWLINE ENTAB7 0 COL2 ENTAB1 ; ENTAB7 : COL2 ENTAB1 ; ; ENTAB6  ; ; ; ************************ ; * * ; * GETPRM-GET PARAMETER * ; * GETS RETURN ADDRESS * ; * OF RO COL2 NEWCOL ; ENTAB2 GETC C #BLANK ENTAB3 ; NEWCOL NEWCOL COL TABPOS #TRUE ENTAB2 #TAB PUTC NEWCOL COL2 ENTAB2 ; ENTAB3 COL2 NEWCOL ENTAB5 #BLANK PUTC COL2 ENTAB3 ; ; ENTAB5 BLANKS * ; * WITH THE TAB CHAR.* ; * TABS CONTAINS THE * ; * TAB STOPS TO BE * ; * USED. * ; * * ; ********************* ; ; NEWCOL 00 COL2 00 C 00 ; ; ENTAB :  ; 00 COL2 ; ENTAB1 ; INCZ ZPAG INCX ZPAG+$1 INCX ; LZIZ :    00 (ZPAG),Y   (ZPAG),Y ZPAG+$1  ZPAG     ; ; ; ; ; ********************* ; * * ; * ENTAB - REPLACES * ; * STRINGS OF; #$00 ITOC5 #ZERO ITOC4 LEAD0 ; ITOC4 : LEAD0 ITOC6 ITOC5 CHRSTR,X  ITOC6 ITOC1 #EOS CHRSTR,X PTASV PTYSV PTXSV  ; ; ; ; ; ; DECZ ZPAG DECZ1 ZPAG+$1 DECZ1 ZPAG  AD0INIT LEAD0 TO A NON-NEGATIVE # ; ITOC1 : #ZERO DIGIT ; ITOC2 :  ZPAG T10L,Y  ZPAG+$1 T10H,Y ITOC3 ; ZPAG+$1  ZPAG DIGIT ITOC2 ; ; ITOC3 : "FIX" STACK DIGIT ; ; CHECK FOR LEADING 0'S HERE * ; * * ; ************************ ; ; ; LEAD0 00 DIGIT "0" PTYSV 00 PTASV 00 PTXSV 00 ; T10L 010A64E810 T10H 0000000327 ; ; ; ITOC PTASV PTYSV PTXSV ; 04 00 'LE * ; * ITOC-INTEGER TO CHAR.* ; * CONVERTS INTEGER (16-* ; * BIT UNSIGNED BINARY) * ; * IN LOCATION ZPAG AND * ; * STORES THE CHARACTER * ; * STRING BEGINNING IN * ; * LOCATION CHRSTR. * ; * STRING IS TERMINATED * ; * WITH EOS. DC1 ; ; PTDC2 W PTDC3 #BLANK PUTC  PTDC2 ; ; PTDC3 : 00 )PTDC4 CHRSTR,YOUTPUT INTEGER STRING #EOS PTDC5 PUTC  PTDC4 ; ; PTDC5 PDCASV PDCYSV  ; ; ; ; ************************ ; * GETPRM INCZ INCZ INCZ PUTPRMPUSH RETURN ADDRESS DECZGET ADDRESS OF INTEGER DECZ 02 (ZPAG),YGET FIELD WIDTH W LZIZ LZIZ ITOC ; 00 PTDC1 : CHRSTR,YCOMPUTE LENGTH OF #EOSINTEGER STRING PTDC2  PT; * INTEGER. NUMBER * ; * OUTPUT IS UNSIGNED* ; * 16-BIT DECIMAL * ; * INTEGER. * ; * * ; ********************* ; PDCASV 00 PDCYSV 00 W 00 CHRSTR " " ; ; PUTDEC : PDCASV PDCYSV STTAB1 TABS,X  STTAB1 ;     ; ; ********************* ; * * ; * PUTDEC-OUTPUTS DEC* ; * NUMBER WHOSE AD- * ; * DRESS FOLLOWS THE * ; * JSR. A FIELD WIDTH* ; * (ONE BYTE) FOLLOWS* ; * THE ADDRESS OF THE* INTDOS MSG  8D84  "MON O,I,C"  8D00 OPEN  TEST WRITE  TEST ; MSG  8D  "HELLO THERE"  8D  "HOW ARE YOU TODAY?"  8D00 CLOSE  TEST OPEN  TEST READ  TEST MSG "HERE"  00 00 EOFLAG WRDCNT CLOS * ; ************************* ; ; GTLA 00 GTLY 00 GTLX 00 ; ; GETLIN GTLA GTLY GTLX ; GETLNZAPPLE READ LINE ; 02 !ZPAG+$1SET UP ZPAG FOR PUTLIN 00 ZPAG ; GTLA GTLX GTLY  ; ; ; START : LIN #CR PUTC DASV DYSV DXSV  ; ; ; ; ************************* ; * * ; * GETLIN-READS A LINE OF* ; * TEXT FROM THE STANDARD* ; * INPUT AND STORES IT IN* ; * PAGE TWO. * ; * INCZ INCZ PUTPRM DECZ DISK4  ; ; ; ; ************************* ; * DISK3 & DISK4 ARE * ; * UTILITIES REQUIRED BY * ; * READ AND WRITE. * ; ************************* ; ; DISK3 DISK1  ; ; DISK4 : LZIZ PUT* ; * TED AT BY THE ADDRESS * ; * FOLLOWING THE JSR. * ; ************************** ; READ DISK3 00 (ZPAG),Y "# ISLOT MSG  8D84 "READ "  00 READ1 ; ; ISLOT MSG  8D84  "IN"  00 ; READ1 : GETPRM ; MSG  8D84 "WRITE "  00 WRITE1 ; ; OSLOT MSG  8D84  "PR"  00 ; WRITE1 : GETPRM INCZ INCZ PUTPRM DECZ DISK4  ; ; ; ; ************************** ; * READ-READS FROM FILE * ; * WHOSE FILENAME IS POIN- FOLLOWS THE * ; * JSR (WHERE N IS AN * ; * INTEGER 0-15) THEN * ; * THE STANDARD OUTPUT* ; * IS DIRECTED TO THAT* ; * PARTICULAR SLOT. * ; * * ; ********************** ; ; WRITE DISK3 00 (ZPAG),Y "# OSLOT LZIZ PUTLIN #CR PUTC ; DASVRESTORE REGISTARS DYSV DXSV  ; ; ; ; ; ********************** ; * * ; * WRITE-DIRECTS STAN-* ; * DARD OUTPUT TO FILE* ; * WHOSE FILENAME FOL-* ; * LOWS THE JSR. IF A * ; * "#N" 00 ; ; DISK1 DASV DYSV DXSV ; 80 RUNMODSIMULATE A RUNNING PGM ; #WARMSTINIT ERROR VECTORS DOSERR /WARMST DOSERR ; 00SIMULATE INTEGER BASIC LANG ; INTDOSMAKE SURE DOS IS ON  ; ; ; DISK2 : ; DISK2  ; ; ; ; ************************ ; * * ; * DISK1-PRELIMINARY * ; * STUFF FOR DISK OPEN, * ; * CLOSE, & APPEND. * ; * * ; ************************ ; ; DASV 00 DYSV 00 DXSVBUT POSIT- * ; * IONS THE RECORD * ; * POINTER AFTER THE * ; * LAST RECORD. * ; * * ; ************************ ; ; APPEND DISK1 MSG  8D84 "APPEND "  00 GETPRM INCZ INCZ PUTPRM DECZ  * ; ************************* ; ; CLOSE DISK1 MSG  8D84 "CLOSE "  00 GETPRM INCZ INCZ PUTPRM DECZ DISK2  ; ; ; ; ************************ ; * * ; * APPEND-OPENS A FILE * ; * ON DISK, 8D84 "OPEN "  00 GETPRM INCZ INCZ PUTPRM DECZ DISK2  ; ; ; ; ************************* ; * * ; * CLOSE-CLOSES A FILE * ; * PREVIOUSLY OPENED BY * ; * THE OPEN ROUTINE. * ; * ******************** ; * * ; * OPEN-OPENS A FILE ON * ; * DISK AND POSITIONS THE* ; * FILE POINTER AT THE * ; * FIRST RECORD. * ; * * ; ************************* ; ; OPEN DISK1 MSG **************** ; ; MASAVE 00 MXSAVE 00 ; ; MSG MASAVE MXSAVE GETPRMGET ADDRESS OF STRING %INCZINCREMENT TO GET TRUE ADDRESS PUTLINOUTPUT STRING PUTPRMRESTORE RETURN ADDRESS MXSAVE MASAVE  ; ; ; ; ; ***** ; ; ; ; ************************* ; * * ; * MSG - OUTPUT MESSAGE. * ; * MESSAGE IMMEDIATELY * ; * FOLLOWS THE JSR AND IS* ; * TERMINATED WITH AN EOS* ; * CHARACTER. * ; * * ; *********  'INS'  0D00 TRSP ; WRITE1 #$0 (POSN),Y #$FF WRITE2 PRTL INCL WRITE1 ; WRITE2 PCIM 050D0D04 'CLOSE' 0D0D00  ; ; ; APPLE DOS COMMAND ; ; DOSCMD DISK CROUT PRTPG2 PCIM 0D040D00 RTS2 YPE ; FILE ; ; WRITE : ; UNBLK   DISK PCIM  0D04 'OPEN'  00 PRTPG2 #$D PUTC PCIM  0D04 'WRITE'  00 ;   WLP0 PAG2,Y #',' WRT10 #$D WRT10 PUTC  WLP0 ; WRT10 : PCIM  $D; ; ; ; PRINT LENGTH OF FILE ; ; LENGTH : ; PRTLEN CROUT ; ; ; ; CLEAR FILE IN MEMORY ; NEW : ; PCIM  0D 'CLEAR?'  00 RDLN BLKD #$DF #'Y' RETURN CLDS ; RETURN ; ; ; ; WRITE FILE OUT AS A TEXT T USRP RETURN DOSCMD RETURN ; ; CTBLH RESET  LOAD LENGTH  SAVE  APND  ISRT  DELT  LIST  ASSM  NEW  EDIT  WRITE  FIND  USRP RETURN DOSCMD RETURN ; ; ; FIND LABEL COMMAND ; FIND $C088 FNDSTR OCHR 'ROEAP' NUM2CH *-TWOCHR ; ; DOCMD CTBLL,X ADDR CTBLH,X ADDR+1 INDRCT CMND ; INDRCT (ADDR) ; ; ; ; CTBLL RESET  LOAD LENGTH  SAVE  APND  ISRT  DELT  LIST  ASSM  NEW  EDIT  WRITE  FIND 5F ; NEXT3 CMDS,X NEXT2 #NUM2CH DOCMD PAG2+1,Y #$5FUPR CONVERSION TWOCHR,X DOCMD ; NEXT2 #CMDLEN NEXT1 PCIM  0D07 'WHAT?'  0D00 CMND ; CMDS 'BLLSAIDLANMWF' 100D0403 CMDLEN *-CMDS ; ; TW ; #$4 $A33E $A366 $A36D ; $; PATCH DOS CATALOG DISPLAY ROUTINE ; #"L" $B3AE ; ; SET BASIC RUN FLAGS ; #$80 $D9 $33 #1 $76 $75 ; #$0 NEXT1 PAG2,Y #'a' NEXT3 ; ; CONVERT LOWER TO UPPER CASE ; #$; ; ; ; IERR : ISR2 ; CMND0 #$FF  STKY #CONSLOT STVD INIT ; ; CMND : ; ; SET MON O,I,C ; #$70 MON1 MON2 '! PUTC RDLN 00 BLKD ; ; #; PATCH DOS, RESET BSAVE AND BLOAD ; FOR "B" TYPE FILE. ;MTBL TB80 LINMAX !62 PRTTTL !1 ;: DISK $A851 ; ; CLOCK DATA ; CLKSLT 4 CN05 $20 CN07 $C8 ;  IS64K ; ENDSYM $94F0 ;  ; ENDSYM $5FF0 ;  ; #; ENTRY FOR USER-DEFINED PSEUDO-OP ; USROP   ; PAG2 $9800 PAG3 $9881 ;  ; ; RESETL $3F2 ;: ;: CLDS CMND0 IERR USRP CMND PHEX PRTL FEND PRLN BLKD ; ;  IS64K ; USR1 18 USR2 80 ;  ; USR1 18 USR2 58 ;  ; ;  POSN+$2 CPOS TPOS+$2 HMEM CPOS+$2 LNUM HMEM+$2 FRST LNUM+$2 LAST FRST+$2 ASAVP LAST+$2 XSAVP ASAVP+1 TAPH XSAVP+1 MLUP TAPH+$2 CSAV MLUP+$2 ;: ;  IS64K ; PAG2 $9500 PAG3 $9581 ;  PUTC+$3 PCIA PINT+$3 ;: VDLO $0036 VDHI $0037 KYLO $0038 KYHI $0039 CH $24 ; ; CHRCNT $A0 ADDR $E0 BDDR ADDR+$2 CDDR BDDR+$2 STXT CDDR+$2 ETXT STXT+$2 POSN ETXT+$2 TPOS $8809 ;  ; ; ;  IS64K ; RDLN $E880 ;  ; RDLN $6880 ;  ; ; PCIM RDLN+$3 MOVR PCIM+$3 MOVL MOVR+$3 TSTD MOVL+$3 CVDH TSTD+$3 INIT CVDH+$3 PSPC INIT+$3 PUTC PSPC+$3 PINT 5 STKY $FE89 CROUT $FD8E PHEX $FDDA HOME $FC58 RESET $FF65 BASICTBL $9D56 MON1 $AA74 MON2 $AA5E ;  IS64K ; ASSM $EBE0 GETL $D000 FNDSTR $D009 ;  ; ASSM $6BE0 GETL $8800 FNDSTR POSSIBLE. ; ; ; RANDY HYDE ; ; ; ;: ;: P1.TXT ;: ; ; TRUE 1 FALSE 0 IS64K TRUE ;  IS64K  $E000   $6000  ;  $800 ; ; CHANGE CONSLOT TO 3 FOR AN ; 80-COLUMN LISA. ; CONSLOT 0 ; STVD $FE9E  TEST WARMST ; TEST "TEST"  00  TE. ;: DELT : UNBLK GETN DEL1  ;: DEL1  TRAL LOCL 00 (POSN),Y 0FF DEL2   ;: DEL2 TRPC   BLKD ', DEL3  BLKD GETN DEL4  ;: DEL4 TRAL INCL LOCL TRPA FELN PRTL INCL ; ; JUST PRINT LAST LINE NUMBER ; SPECIFIED? ; LNUM LAST LNUM+1 LAST+1 LIS6IF NOT, NEXT LINE ; LIS7 ;: ;: ;: ;: INCL-INCREMENT LNUM ;: INCL LNUM INL1 LNUM+$01 INL1 ;: ;: ;: DELT-DELE #$A0 LIST2 ; LIST3 $C000 LIST3 $C010 ; LIST2 #$83CONTROL-C? LIST1 CMND0 ; ; ; SEE IF AT END OF FILE, QUIT ; IF WE ARE ; LIST1 : 00 (POSN),Y #$FF LIS7 ; ; PRINT THE CURRENT LINE IF ; NOT AT EOF ; PR: ; ; LIST ALL LINES ; LIS1 01 LNUM 00 LNUM+$01 0FF LAST LAST+$01 ;: ; ; FIND THE FIRST LINE TO LIST ; LIS5 LOCL ; ; "; LIST LOOP- FIRST CHECK KEYBOARD ; TO CHECK FOR PAUSE ; LIS6 : $C000 LIST1 $C010 ;LIST THE NEXT 20 LINES ; LIST20 : ; ; CARRY ALREADY CLEARED BY CMP ; LNUM #21 LAST LNUM+1 #0 LAST+1 LIS5 ; ; ; ; LIST A RANGE OF LINES ; ;: LIS3 ADDR LAST ADDR+1 LAST+1 ; LAST LIS5 LAST+1 LIS5 ; GTN1 PCIM 'BAD #'  0D00   ;: ;: ;: ; LIST A FILE WITH SPECIFIED ; BOUNDS ; ; ; ; LIST UNBLK 0D LIS1 GETN LIS2  ;: LIS2 TRAL BLKD ', LIS3  BLKD #$D LIST20 GETN LIS3  ; ; BDDR HMEM+$01 BDDR+$01 MOVL #0 #$FF ; ENDLP (CDDR),Y  ENDLP FEND ;: ;: ; ; GETN- GET A NUMBER FROM ; THE INPUT BUFFER AND CONVERT ; TO BINARY ; ;: GETN TSTD GTN1 CVDH ADDR ADDR+$01 GTN1   ;:ON POINTED AT BY "; POSN. POSN IS UPDATED TO POINT ; AT THE MEMORY LOCATION JUST ; PAST THE NEWLY ENTERED LINE. ; GETL INCL ISR5 PAG2 #0 ISRTX 05 ISR2 ;: ISRTX CSAV+$01 ADDR+$01 CSAV ADDR ; TRPC HMEM M+1 CDDR+1 MOVR TRPA ;: CDDR CSAV CDDR+$01 CSAV+$01 ;: ISR2 CLRP ; ; SELECT RAM BANK #1 ; $C088 ; ; GETL IS A MAGIC ROUTINE ; THAT READS AN INPUT LINE, ; TOKENIZES IT, AND STUFFS ; THE TOKENIZED LINE AT THE ; LOCATI POSN ETXT POSN+1 #0 ETXT+1     ;: ;: ;: ;: ISRT-INSERT. ;: ISRT : FEND #$FF LNUM LNUM+$01 UNBLK 0D ISR1 GETN ISR4  ;: ISR4 TRAL ISR1 LOCL TRPA TREB HMEM CDDR HME ;: ;: ;: INCP POSN INP1 POSN+$01 INP1 ;: ;: ;: ;: ;: ; FIND THE END OF THE FILE IN ; MEMORY. ; ;: FEND :    TRSP 00 FEN1 (POSN),Y 0FF FEN2  FEN1 POSN+1 FEN1 ; ;: FEN2 ;: ;: TRAL ADDR LNUM ADDR+$01 LNUM+$01  ;: ;: ;: TREB ETXT BDDR ETXT+$01 BDDR+$01  ;: ;: ;: ;: TRPC POSN CDDR POSN+$01 CDDR+$01  ;: ;: ;: ;: TRSP STXT POSN STXT+$01 POSN+$01  LNUM+1 LOC2 ;: ; ; ; CLEARS INPUT BUFFERS ; CLRP   20 4F ;: CLR1 PAG2,Y PAG3,Y  CLR1 ;:     ;: ;: ; ; VARIOUS TRANSFER UTILITIES ; TRPA POSN ADDR POSN+$01 ADDR+$01  ;:  01 BDDR 00 BDDR+$01 ;: LOC1 BDDR LNUM BDDR+$01 LNUM+$01 LOC2 ;: (POSN),Y 0FF LOC4  POSN POSN LOC3 POSN+$01 ;: LOC3 INCP BDDR LOC1 BDDR+1 LOC1 ;: LOC4 BDDR LNUM BDDR+1 L1 0D FBL1  FBLK ;: ;: ;: UNBLK FBLK ; ; ; REMOVE LEADING BLANKS FROM ; A LINE. ; BLKD PAG2,Y 20 FBL1  BLKD ;: FBL1 ;: ; ; LOCL- LOCATE LINE. ; FINDS LINE NUMBER SPECIFIED ; BY LNUM ; LOCL TRSP; "; UTILITY TO PRINT THE INPUT LINE ; BUFFER ; PRTPG2 : PAG2,Y RTS2 #'a' PRTPG20 #$5F ; PRTPG20 : 0D RTS2 ; ; PUTC  PRTPG2 ; ; ; ; FIND THE NEXT BLANK CHARACTER ; ON THE LINE ; ;: FBLK PAG2,Y 20 FBY STATES ; THAT THIS PRODUCT IS COPY- ; RIGHTED BY RANDY HYDE D.B.A ; LAZER SYSTEMS. ; ; ; ; HOME #CONSLOT STVD PCIM  0C0D  ' LAZER SYSTEM''S'  0D  ' INTERACTIVE'  0D  ' SYMBOLIC'  0D  ' ASSEMBLER'  0D0D  '(C) ; WARNING!!!! ; !; LISA IS A COPYRIGHTED PROGRAM ; PROTECTED BY U.S COPYRIGHT ; LAWS AND THE CONTRACT YOU ; IMPLICTLY AGREED UPON BY ; PURCHASING LISA. ; !; ANY MODIFICATIONS TO LISA YOU ; MAKE MUST CARRY THE SIGN-ON ; MESSAGE WHICH CLEARLSTXT POSN HMEM ETXT USR1 STXT+$01 POSN+$01 ETXT+$01 USR2 HMEM+$01 0FF (POSN),Y ; ; PATCH ERROR VECTORS IN DOS ; #45 FIXDOS /CMND0 BASICTBL,X  #CMND0 BASICTBL,X  FIXDOS ; ; PRINT SIGN-ON ; ; UTSPC  PRLN1 ; PRLN2 PINT  LNUM ; PUTSPC #' ' PUTC ; TENL 1000  100  10  0 ; TENH 1000  100  10  0 ; ; ;: ;: ; LISA COLDSTART ROUTINE ; ;: CLDS ; ; SET UP INITIAL FILE POINTERS ; 00  0 CHRCNT PSPC ; PRT18 : PUTSPC ; ; PRT13 (POSN),Y PUTC 0D PRT7  PRT13 ; ; ; ; ; ; ; ; ; PRINT THE CURRENT LINE'S LINE ; NUMBER ; ;: ;: PRLN #0 PRLN1 LNUM TENL,X LNUM+1 TENH,X PRLN2 PAINDER OF LINE AS ; STANDARD TEXT ; PRT6 (POSN),Y CHRCNT "; PRT15 PUTC 0D PRT7  PRT6 PRT7 00  (POSN),Y POSN POSN PRT8 POSN+$01 PRT8 INCP  ;: PRT15 : CHRCNT 10 PRT18 ;  #$1F   MLUP   MLUP MLUP PRT4 MLUP+$01 ;: PRT4 MLUP  TB8A MLUP MLUP+$01 TB8A+$01 MLUP+$01 ;:   00 PRT5 (MLUP),Y PUTC  03 PRT5   ; ; ;   PUTSPC ; ; ; OUTPUT REMTC CROUT PRT7 ; ; ; ; PRT101 ': PRT102 ; PRT10 PUTSPC  #$9 PRT10 ; ;: PRT9 PUTSPC PRT3 ;: PRT1 #$9 PSPC ;: ; ; COMPUTE INDEX INTO MNEMONIC ; TABLE AND PRINT MNEMONIC ; PRT3 (POSN),Y #$7'; PRT2 PPRT8 PRT6 ;: ; ; ITS A LABEL, OUTPUT IT ; PRT2 (POSN),Y PRT10 #' ' PRT100   #$9 (POSN),Y ': PRT101   PRT10 ; PRT100 : PUTC  #$9 PRT2 (POSN),Y ': PRT9 PRT102 : PUUTINE ; DOES THE DETOKENIZATION. ; ;: PRTL 00 CHRCNT MLUP+$01 (POSN),Y 0FF PPRT7 PRT7 PPRT7 :  (POSN),Y PRT1NO COMMENT OR LABEL? ; ; ; EITHER A COMMENT OR A LABEL. ; CHECK FOR A COMMENT FIRST ; #'*' PPRT8  'PAG'  'INV'  'BLK'  'DBY'  'TTL' TBF0 'SBC'  "???"  'LET'  '.IF'  '.EL'  '.FI'  '= '  'PHS'  'DPH'  '.DA'  'GEN'  'NOG'  'USR' 'ENZ'  00 ;: ;: ;: ; PRTL- PRINTS THE LINE POINTED ; AT BY "POSN". THIS ROD0 'STA'  'STX'  'STY'  'XOR'  'LSR'  'ROR'  'ROL'  'ASL'  'ADR'  'EQU'  'ORG'  'OBJ'  'EPZ'  'STR'  'DCM'  'ASC' TBE0 'ICL'  'END'  'LST'  'NLS'  'HEX'  'BYT'  'HBY'  'PAU'  'DFS'  'DCI'  "FLT" '  'INR'  'SUB'  'LDD'  'POP'  'PPD'  'STD'  'STP'  'LDR'  'STO'  'SET'  "???" TBC0 'ADC'  'AND'  'ORA'  'BIT'  'CMP'  'CPX'  'CPY'  'DEC'  'EOR'  'INC'  'JMP'  'JSR'  "???"  'LDA'  'LDX'  'LDY' TB 'CLD'  'CLI'  'DEX'  'DEY'  'INX'  'INY' TBA0 'NOP'  'PHA'  'PLA'  'PHP'  'PLP'  'RTS'  'RTI'  'RSB'  'RTN'  'SEC'  'SEI'  'SED'  'TAX'  'TAY'  'TSX'  'TXA' TBB0 'TXS'  'TYA'  'ADD'  'CPR'  'DCRTB80 TB80 'BGE'  'BLT'  'BMI'  'BCC'  'BCS'  'BPL'  'BNE'  'BEQ'  'BVS'  'BVC'  'BSB'  'BNM'  'BM1'  'BNZ'  'BIZ'  'BIM' TB90 'BIP'  'BIC'  'BNC'  'BRA'  'BTR'  'BFL'  'BRK'  'BKS'  'CLV'  'CLC' ND TREB MOVL  ;: DEL3 00 (POSN),Y  POSN ADDR POSN+$01 00 ADDR+$01 ADDR DEL5 ADDR+$01 DEL5 FEND TREB MOVL  ;: EDIT :   LIST    DELT   ISRT  ; ;: TB8A z#??     Š@Ӡ@įԭ@ŠӠ@@б̠E@ӮԠжԠ ֲŠ@ŮԠ,@ƮԠ*@ԮԠ ƠƮʠֲ @г̠O PAG2,X DISK ; ; END :  TXT STXT POSN ETXT+$01 STXT+$01 POSN+$01 INCP INCP ; ; ; ;: PHXP POSN+$01 PHEX POSN PHEX ;: ;: ;: SAV1 LOD1 ; ;: ;: MOVNAM 00 SAV2 PAG2,Y 0D SAV3 PAG2,X   SAV2 ; SAV3 #0FBLK 0D SAV1 ;: MOVNAM ; PCIM  0D04 'BSAVE'  00 #0 PRTPG2 PCIM  ',A$'  00 PRHX PCIM  ',L$'  00 PRTLEN ; FNSHUP : PCIM 0D848D8D00  ;: ; ; PRINT THE LENGTH OF A FILE ; PRTLEN : FEND  E01 PHEX STXT PHEX ;: ;: ; ; LISA APPEND COMMAND ; APND STXT  STXT+$01  FEND ETXT STXT ETXT+$01 STXT+$01 LOAD  STXT+$01  STXT FEND ;: ;: ; LISA SAVE COMMAND ;: SAVE : #$40 $A33E $A36D ; LOAD0 : ; FBLK 0D LOD1 MOVNAM ;: PCIM  0D04 'BLOAD'  00 #0 PRTPG2 PCIM  ',A$'  00 PRHX FNSHUP ;: ;: LOD1 PCIM  0D07  'BAD FILENAME'  0D00 ;  ;: ;: ;: ;: ;: ;: PRHX STXT+$1981 LAZER SYSTEMS'  0D  ' VERSION 2.5G -- ' 5; ;  IS64K  '64K'   '48K'  ; 0D0D0D00 CMND0 ;: ;: ; LOAD : ; "; CHECK FOR SPECIAL "LOB" COMMAND ; PAG2+$2,Y #'B' LOAD0 ; ; DO "L" FILE HERE ; #$40 $A366  a()Q8 LOOKUP ; ; STEP1 :  RTNL  RTNH ; ; INIT EXECUTION AREA. ; #8 XQINIT INITBL-1,X XQT,X  XQINIT ; GOODOP XQTIT ; PRINT 8D8D87  "ILLEGAL OPCODE ENCOUNTERED" 8D8D00 #$FF  MON ; ; XQTIT ; ; ; ZERO PAGE INSTRUCTION HERE ; STEP5 #1 (PCL),Y  #0 LOOKUP STEP1 ; ; ; BRANCH INSTRUCTION HERE ; STEP2 #1 (PCL),Y  PCH  STEP4  ; STEP4 PCL STEP7  ; STEP7 #2 STEP8  ; STEP),Y  LOOKUP STEP1 ; ; IMMEDIATE INSTRUCTION HERE. ; (OR ZERO PAGE) ; STEP3 FMTSAVE #$21 STEP5 ; ; IMMEDIATE HERE ; #1 (PCL),Y #" " STEP1 DISPMODE STEP1 #""" COUT (PCL),Y COUT #""" COUT STEP1H LOOKUP CROUT INSTDSP ; CH BLNKLOOP#" " COUT  #31 BLNKLOOP ; LENGTH STEP1 #$0 (PCL),Y #$1F #$14 #4 STEP2 ; LENGTH #1 STEP3 ; ; THREE BYTE INSTRUCTION HERE ; #1 (PCL),Y   (PCLDJ PCADJ2 LENGTH PCADJ3 PCH  PCADJ4  PCADJ4 PCL RTS2  RTS2 ; ; ; STEP : ; TSTBRKPT #TRUE DOBRK CROUT CROUT #$81 FMTSAVE PCL PCH PRNTYX #"-" COUT #" " COUT PCL PC PRADR4 PRADR2 PRBYTE ; PRADR5 FORMAT #$E8 (PCL),Y PRADR4 ; RELADR PCADJ3   PRNTYX  ; PRNTYX :  PRNTAX PRBYTE PRNTX PRBYTE ; PRBLNK #2 PRBL2 #" " PRBL3 COUT  PRBL2  ; PCA#0 #5 ; PRMN2 RMNEM LMNEM   PRMN2 #$BF COUT  PRMN1 PRBLNK LENGTH #6 ; PRADR1 #3 PRADR5 ; PRADR2 FORMAT PRADR3 CHAR1-1,X COUT CHAR2-1,X PRADR3 COUT ; PRADR3 PRADR1  ; ; MNNDX1  ; ;  $FF,$FF,$FF ; ; INSTDSP INSDS1  FORMAT FMTSAVE ; ; PRNTOP (PCL),Y PRBYTE #1 ; PRNTBL PRBL2 LENGTH  PRNTOP #3 #4 PRNTBL   MNEML,Y LMNEM MNEMR,Y RMNEM ; PRMN1  FMT1,X SCRN2 GETFMT ; ERR #$80 #FALSE GOODOP #$0 ; GETFMT FMT2,X FORMAT #3 LENGTH  #$8F   #3 #$8A MNNDX3 ; MNNDX1 MNNDX3  ; MNNDX2 #$20  MNNDX2 ;  MNNDX3 FOR 48K LISA ; SYMADR $78 CHARSIZE 8 SYMSIZE 10 ; SCRN2 RTMSKZ     RTMSKZ #$F  ; INSDS1 : #TRUE GOODOP #2 PRBL2 #0 (PCL,X) ; INSDS2  IEVEN  ERR #$A2 ERR #$87 ; IEVEN +1 FOUND SYMTBL+2 STATS FOUND+1 DISPMODE STATS+1 ADRL DISPMODE+1 ADRH ADRL+1 ; BRKPTNUM ADRH+1 BRKPT BRKPTNUM+1 DOBRK BRKPT+8 GOODOP DOBRK+1 ; ; ; INVERSE $3F ; ; THE FOLLOWING LINE MUST BE ; CHANGED TO $58A4L A3H+1 A4H A4L+1 A5L A4L+1 A5H A5L+1 ACC A5H+1 XREG ACC+1 YREG XREG+1 STATUS YREG+1 SPNT STATUS+1 FMTSAVE SPNT+1 PRTLABEL FMTSAVE+1 LOADDR PRTLABEL+1 HIADDR LOADDR+1 SYMTBL HIADDR $D6 RTNL LMNEM RTNH RTNL+1 RMNEM LMNEM+1 FORMAT RMNEM+1 LENGTH FORMAT+1 PCL LENGTH+1 PCH PCL+1 XQT PCH+1 A1L XQT A1H A1L+1 A2L A1H+1 A2H A2L+1 A3L A2H+1 A3H A3L+1 C58 ZMODE $FFC7 BELL $FF3A KEYIN $FD0C KEYBRD $C000 KEYSTRB $C010 ; IN $200 TRUE $1 FALSE $0 ; ; CH $24 CV $25 MODE $31 INVFLAG $32 PROMPT $33 YSAV $34 ; RUNMODE $D9 LMNEM*  "TRACE ROUTINES" ;  $4800  DEBUG ; FMT1 $F962 FMT2 $F9A6 CHAR1 $F9B4 CHAR2 $F9BA MNEML $F9C0 MNEMR $FA00 CHRTBL $FFCC GETNUM $FFA7 TOSUB $FFBE BL1 $FE00 GETLNZ $FD67 HOME $F               INPUT #";" PASS2 #"*" PASS2 ; CNTOPCOD GETOPRND PASS2 ; ; ; %; CNTOPCOD- COUNTS OPCODE OCCURANCES ; CNTOPCOD:      ; SYMLEN  #MNEMNC OPPNTR /MNEMNC OPPNTR+1 #0 OPCNTR ; MNEMLOOPINPUT,".EL"  ".FI"  00 ; ; $; PASS TWO- DISCOVER ALL REFERENCES ; OF SYMBOLS STORED WITHIN THE ; SYMBOL TABLE ; ; P2INIT #$0 LINENUM LINENUM+1 ; PASS2 : ; LINENUM PASS2.1 LINENUM+1 ; PASS2.1 : GETLN SYMLEN2 PASS2 ;   "ASL"  "ADR"  "EQU"  "ORG"  "OBJ"  "EPZ"  "STR"  "DCM"  "ASC"  "ICL"  "END"  "LST"  "NLS"  "HEX"  "BYT"  "HBY"  "PAU"  "DFS"  "DCI"  "FLT"  "PAG"  "INV"  "BLK"  "DBY"  "TTL"  "SBC"  "LET"  ".IF"  POP"  "PPD"  "STD"  "STP"  "LDR"  "STO"  "SET"  "ADC"  "AND"  "ORA"  "BIT"  "CMP"  "CPX"  "CPY"  "DEC"  "EOR"  "INC"  "JMP"  "JSR"  "LDA"  "LDX"  "LDY"  "STA"  "STX"  "STY"  "XOR"  "LSR"  "ROR"  "ROL" "DEX"  "DEY"  "INX"  "INY"  "NOP"  "PHA"  "PLA"  "PHP"  "PLP"  "RTS"  "RTI"  "RSB"  "RTN"  "SEC"  "SEI"  "SED"  "TAX"  "TAY"  "TSX"  "TXA"  "TXS"  "TYA"  "ADD"  "CPR"  "DCR"  "INR"  "SUB"  "LDD"  "MNC "BGE"  "BLT"  "BMI"  "BCC"  "BCS"  "BPL"  "BNE"  "BEQ"  "BVS"  "BVC"  "BSB"  "BNM"  "BM1"  "BNZ"  "BIZ"  "BIM"  "BIP"  "BIC"  "BNC"  "BRA"  "BTR"  "BFL"  "BRK"  "BKS"  "CLV"  "CLC"  "CLD"  "CLI" TAVAIL),Y #0  (NXTAVAIL),Y  (NXTAVAIL),Y ; ; ADJUST NXTAVAIL SO THAT IT ; POINTS TO THE NEXT AVAILABLE ; POSITION ;  NXTAVAIL #12 NXTAVAIL PASS1 NXTAVAIL+1 PASS1 ; ; ; ; !; VALID LISA 1.5 & 2.2 MNEMONICS ; MNE" ; CHARACTERS LONG FILL WITH ; SPACES. ; LDLP0 #8 LDLP1 #" " (NXTAVAIL),Y  LDLP0 ; ; STORE LABEL DEFINITION LINE ; NUMBER AND SET REFERENCE ; POINTER TO NIL. ; LDLP1 : #8 LINENUM (NXTAVAIL),Y  LINENUM+1 (NX#";" PASS1 #"*" PASS1 #"^" PASS1 ; ; ; LABEL ENCOUNTERED HERE ; STORE LABEL IN SYMBOL TABLE ; ; ; #0 LDLOOP INPUT,Y #":" LDLP0 #" " LDLP0 (NXTAVAIL),Y  SYMLEN LDLOOP ; !; IF LABEL IS LESS THAN "LENGTH; "LINENUMSET LINE NUMBER TO ZERO LINENUM+1  ; ; ; PASS ONE- DETERMINE WHERE ; A SYMBOL IS DEFINED ; ; PASS1 : ; LINENUM PASS1A LINENUM+1 ; PASS1A : GETLN INPUT ; ; IS THERE A LABEL ON THIS LINE ; #" " PASS1  SYMBOL ; TABLE. ; #ENDPGM NXTAVAIL /ENDPGM NXTAVAIL+1 ; ; ; CLEAR ALL MEMORY FROM THE END ; OF THE PROGRAM THROUGH TO THE ; HEAP. ; #0  #$72CLEAR TO LOC $9100 INITLOOP(SYMTBL),Y  INITLOOP SYMTBL+1  INITLOOP EAR ; MEMORY. ; #OPCOUNT SYMTBL /OPCOUNT SYMTBL+1 ; ; ; SET UP POINTER TO HEAP. ; THE HEAP IS USED TO HOLD ALL #; REFERENCES TO A PARTICULAR LABEL ; #ENDPGM+$7000 NXTHEAP /ENDPGM+$7000 NXTHEAP+1 ; ; ; SET UP POINT FOR THEEN LENGTH SYMLEN2 LENGTH+2 SYMLEN4 LENGTH+4 SYMLEN5 LENGTH+5 ; ; ; ; ; ; ; ; ; ; INIT- INITIALIZES POINTERS ; INIT : ; ; ; INITIALIZE SYMTBL TO POINT ; AT THE BEGINNING OF THE ; VARIABLE SPACE. ; THIS WILL BE USED TO CL PNTR1+2 COUNTER PNTR2+2 ; ; ; ; ; ; ; MONITOR EQUATES. ; INPUT $200 ; GETLN $FD6F COUT $FDED HEXOUT $FDDA ; ; ; ; ; INIT PASS1 P2INIT PRTSYMBL ; ; ; SYMLEN- LENGTH OF LISA SYMBOL ; LENGTH 8 ; SYMLU(  "LISA XREF"  $1800 ; SYMTBL $0 HEAP SYMTBL+2 NXTAVAIL HEAP+2 NXTHEAP NXTAVAIL+2 LINENUM NXTHEAP+2 OPPNTR LINENUM+2 OPCNTR OPPNTR+2 DIGIT OPCNTR+2 LEAD0 DIGIT+1 NUM LEAD0+1 PNTR1 NUM+2 PNTR2               8D $FDED 00 SYMCNT LBL8 : ; ; ; LBL3 PNTR1 #10 PNTR1 LBL6 PNTR1+$1 LBL6 00 LBL2 ; LBL4 LLLL $00   ;"PNTR1+$1 LBL2 : ; (PNTR1),Y LBL4 #'#' LBL3 #$A0 $FDED $FDED LBL5 (PNTR1),Y 80 $FDED  #8 LBL5 ; #$A0 $FDED  (PNTR1),Y $FDDA  (PNTR1),Y $FDDA ; ; SYMCNT SYMCNT #5 LBL8 ; ENDSYM LBL7 PNTR2+$1 ENDSYM+$1 LOOPP LBL7 :  PNTR1 #10 PNTR1 LOOP4 PNTR1+$1 ; LOOP4 : PNTR1 ENDSYM PNTR1+$1 ENDSYM+$1 LOOP1 ; ; ; PRINT THE SYMBOL TABLE HERE. ; 00 SYMT PNTR1 SYMT+$1 NTR2) HERE. ; EXCHNG ; LOOP2 ; ; LBL1 : ; ; SORT BY ADDRESS HERE ; CMPADR LOOP2 EXCHNG ; ; ; LOOP2 :  PNTR2 #10 PNTR2 LOOP3 PNTR2+$1 LOOP3 : PNTR2 ENDSYM PNTR2+$1 ENDSYM+$1 LOOPP PNTR2 0 ; MSG2 8D8D  "SYMBOL TABLE SORTED"  " BY ADDRESS" 8D8D00 ; ; ; SORTIT : SYMT PNTR1 SYMT+$1 PNTR1+$1 ; LOOP1 PNTR1 PNTR2 PNTR1+$1 PNTR2+$1 ; ; LOOPP : FLAG LBL1 CMPALF LOOP2 ; ; (PNTR1) > (P OUTPUT. ; 00 SLP2 MSG2,Y SLP2X $FDED  SLP2 ; SLP2X : 00 SYMCNT 01 FLAG SORTIT ; ; #$8D $FDED $FDED $E003WARMSTART INTO LISA 2.0 ; MSG1 8D  "SYMBOL TABLE SORTED"  " ALPHABETICALLY" 8D8D0 CONTAIN ; THE BEGINNING AND ENDING ; ADDRESSES OF THE ARRAY TO BE ; SORTED. ; ; !; SORT ALPHABETICALLY AND OUTPUT ; 00 SLP1 MSG1,Y SLP1X $FDED  SLP1 ; SLP1X : 00 SYMCNT 00 FLAG SORTIT ; ; SORT BY ADDRESS AND ; ; ; ; THE GOOD OLD BUBBLE SORT. ; I USED THIS ONE BECAUSE ; IT IS SHORT, AND I AM PRESSED ; FOR SPACE. ; ; FOR BETTER PERFORMANCE, USE ; QUICKSORT. ; ; SORT : ; #; FIRST - FIND END OF SYMBOL TABLE ; FNDEND ; ; NOW SYMT AND ENDSYMG THE ; ADDRESS IN ENDSYM. ; FNDEND 00 SYMT ENDSYM SYMT+$1 ENDSYM+$1 ; FND1 (ENDSYM),Y FND2 ENDSYM  #10 ENDSYM FND1 ENDSYM+$1 FND1 ; FND2 ENDSYM #10 ENDSYM ENDSYM+$1 00 ENDSYM+$1   CMPA2 (PNTR1),Y (PNTR2),Y CMPA1 ;  CMPA2  ; ; ; COMPARE ADDRESSES. ; CMPADR #8 (PNTR1),Y (PNTR2),Y  (PNTR1),Y (PNTR2),Y  ; ; ; ; ; !; THE FOLLOWING FINDS THE END OF ; THE SYMBOL TABLE, LEAVIN THE FOLLOWING SECTION EXCHANGES ; THE TWO SYMBOL TABLE ENTRIES ; POINTED AT BY PNTR1 & PNTR2 ; ; EXCHNG #9 EX1 (PNTR1),Y  (PNTR2),Y (PNTR1),Y  (PNTR2),Y  EX1  ; ; ; CMP LABELS ; CMPALF #$FF #8  CMPA1   ; SYMBOL TABLE SORT ROUTINE ; ; AUTHOR:RANDY HYDE ; APPLE II COMPUTER ; AUGUST 1979 ; ; ; SYMT $94 PNTR1 SYMT+$2 PNTR2 PNTR1+$2 FLAG PNTR2+$2 ENDSYM FLAG+$1 SYMCNT ENDSYM+$2 ; ; ; SORTJMP VECTOR ; ; ";       (4);"CLOSE ";NAME$' (4);"PR#1"7 PRTSYMBOLS= N (4);"PR#0"T  RNAME$v 6(4);"OPEN ";NAME$ @(4);"READ ";NAME$ EA$ J400 TPASSTWO (4);"CLOSE ";NAME$ (4);"PR#1" PRTSYMBOLS  (4);"PR#0"." "ENTER FILENAME:";+ NAME$C (4);"OPEN ";NAME$[ (4);"READ ";NAME$r A$: REMOVE "INS"| INIT 300 FIRSTPASS ,(4);"CLOSE ";NAME$ 6(4);"OPEN ";NAME$ @(4);"READ ";NAME$ EA$ J400 TPASSTWO 80, 1981 , < * *L F * AUTHOR:RANDALL HYDE *l P * * Z ************************* c d"THIS PROGRAM ASSUMES YOU HAVE CREATED" n"A LISA TEXT-TYPE FILE USING THE" x"LISA W)RITE COMMANDVINIT6144*FIRSTPASS6147<PASSTWO6150QPRTSYMBOLS6153q (4);"BLOAD XREF.OBJ V2.0" ************************* * LISA CROSS REFERENCER * * *( * (C) LAZER MICROSYSTEMS* 2 * 19    ̭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?L`Hh`HHɫ7ɭ3ɪ/ɯ+'#ɦɠɬɩɍɣ ɽŠH Li L Hhȥ ȩȑ8 o ɻɪ  gLHHH 詙    La   i  hhh`L ɢL ɧL  /L ɣLɨɢLɧLɤ Lɡ "L / "LɪLɥ "LɾɼL ?ԮƮ̮ LL<LL r ` oɠɻɪɺ ɠ ȥ ȑȑi L<ͱ     GETLBL #'=' GETLBL BADLBL ; ISITEND PAG2,Y #' ' FLSLBL #':' BADLBL ; FLSLBL  #' ' FLSHL0 PG31,X  #20Anything > 9 FLSHL0 ; FLSHL1 PAG2,Y #':' GETMNE PG31+$8 #$D PG31+$9 #$A PAG3 BADLBL PG31+1 PAG2+$2 #' ' >0 #':' BADLBL ; ^0 #2 FLSLBL ; ; HANDLE NORMAL LABEL ; GETLBL : PAG2,Y TSTLConvert L/C to U/C ; TSTEND #':' FLSLBL #' ' FLSLBL PG31,Y  #8 ISITEND TSDM BL ; NOLABEL GETMNE ENDEDIT ; ; COMMENT #0 ^0 PAG2,Y PG31,Y  0D <0 ;  PAG3 FLSH  ; ; BADLBL EROR  'BAD CHARACTER IN LABEL',0 GETL ; ; ; ; HANDLE LOCAL LABEL ; DOLCLLBLPG31 PAG2+$1 TSTD ';', '*', ' ', '~', ; an alphabetic letter, or the #; terminating character (^E or ^@) ; RDLN 00 PAG2 #5^E ENDEDIT #0^@ ENDEDIT #';' COMMENT #'*' COMMENT #'^' DOLCLLBL #' ' NOLABEL TSTL GETLBL BADL$D PUTC   ; ; ; NORMAL GETLINE ENTRY ; ; ; GETLT : #$0 PAG3 #$60 #' ' GETLT1 PG31,X  GETLT1 PRLN ; ; Read a line of text from the "; keyboard. Allowable characters !; for the first character on the ; line are:OLLOWING IN THE EVENT ; A FILE IS BEGIN EXEC'D INTO ; MEMORY ; ; ; INIT COUT VECTORS TO $FDF0 ; CONSLOT SETVID CONSLOT SETKBD ; !; NOW, GET ANOTHER LINE FROM THE ; KEYBOARD. ; GETLT ; ; AND THEN RESTORE DOS POINTERS ; DSK #STK 0D PUTC PUTC  ;: ;: ;: GETL-GETS A LINE ;: FROM THE KEYBRD ;: AND CHECKS FOR ;: SYNTAX, IF OKAY ;: LINE IS ENTERED ;: INTO TEXTFILE. ;: ;: PRINT LINE # ;: ;: ;: GET LINE AND ;: CHECK SYNTAX. ;: GETL : ; ; DO THE F(POSN),Y ;:  POSN POSN FLS3 POSN+$01 FLS3 ;: ;: ;: ;: EROR- PRINTS AN ;: ERROR MESSAGE ;: EROR #$5 PSPC  >0 PSPC ; ^0 #'^' PUTC PCIM 0D0D07 '**ERROR:'  2000 ;: STKA OTAI S;: ;: ;: FLSH-TRANSFERS ;: PAGE 3 TO TEXT- ;: FILE. ;: FLSH PAG3 POSN CSAVE   POSN+$1 #2  CSAVE+$1 FLS1 ; EROR  'MEMORY FULL'  00 05 PAG2  ; ; FLS1 PAG3,Y (POSN),Y  FLS1 ;: PAG3 INIT+$3 PUTC PSPC+$3 PINT PUTC+$3 PCIA PINT+$3 OTAI PCIA+$3 STKA OTAI+$3 SSTK STKA+$3 ;: ; SETVID $FE95 SETKBD $FE8B DSK $A851 ;: ;: ; ; ; ; ; ; ; GETLT MLTPLY DIVSN FIND SLUP EL PRLN+$3 SYMEND $6027 CONSLOT $602C  ; ;: ;: HAS64K ; RDLN $E880 ;  ; RDLN $6880 ;  ; ; PCIM RDLN+$3 MOVR PCIM+$3 MOVL MOVR+$3 TSTD MOVL+$3 CVDH TSTD+$3 INIT CVDH+$3 PSPC G31 $9582 LCLCNT $94F0  PAG2 $9800 PAG3 $9881 PG31 $9882 LCLCNT $5FF0  ; ; HAS64K MNTBL $E01D PRLN $E015 BLKDEL PRLN+$3 SYMEND $E027 CONSLOT $E02C  MNTBL $601D PRLN $6015 BLKD; SADR $91 SYMT $94 ASAV $96 EYET $97 OP1 $A8 RESULT $A5 ; ENDSYM $B4 LOCSAV $B2 LOCC $99 DIR $B6 SYMCNT $B7 SYMSAV $B8 ; CSAVE $FE ; ;: HAS64K PAG2 $9500 PAG3 $9581 P ETXT+$2 TPOS POSN+$2 LPTR TPOS CPOS TPOS+$2 HMEM CPOS+$2 LNUM HMEM+$2 FRST LNUM+$2 LAST FRST+$2 ; MLUP $72 YSAV MLUP+$2 YSV2 YSAV+$1 DELM YSV2+$1 MCNT DELM+$2 OPRND MCNT+$1 -M  "LISA P3.L" ; ; TRUE 1 FALSE 0 ; HAS64K TRUE ; ; HAS64K ;  $D000 ;  ;  $8800 ;  ;  $800 ;: ;: P3.TXT ;: ADDR $E0 BDDR ADDR+$2 CDDR BDDR+$2 STXT CDDR+$2 ETXT STXT+$2 POSN                                 ; LIST0 : PC P`AUX PC+1 PCAUX+1 INSDS1 SETFMT INSTDSP PCADJ PC PC+1 ; #CR COUT STOPVAL PC STOPVAL+1 PC+1 LIST0 ;     ; GETHEX : ; PC GETHEX1 PC+1 ; GTABLE ; (SYMADRS),Y BITSET,X (SYMADRS),Y ; ; PRINT THE LABEL ; #CR COUT #"L" COUT PC+1 PRBYTE PC PRBYTE #":" COUT        ; TBLCLC       ; ; ; ; ; ; LIST : ; SYMADRS   TSTLBL0 ;       #0  SYMADRS #ARRAY SYMADRS SYMADRS+1 /ARRAY SYMADRS+1 ; BITSET,X (SYMADRS),Y ;  ; ; ; TSTLBL :      ; CHKTBL TBLCLC ; ; ; CLEAR BIT IN ; LBLTST1 STOPVAL PC STOPVAL+1 PC+1 *+5 PRTINST0 ;     ; ; ; ; ; ; ; ; CHECK CURRENT ADDRESS TO #; SEE IF A LABEL IS REQUIRED HERE. ; ; CHKTBL : PC SYMADRS PC+1 SYMADRS+1 #3 TSTLBL0 SYMADRS+1 ҩϠhhhhhLdM PCAUX PC PCAUX+1 PC+1 ; CHKTBL LBLTST #CR COUT #"L" COUT PCAUX+1 PRBYTE PCAUX PRBYTE PRTEQU #"*" COUT #"-" COUT #"$" COUT  TEMP PCAUX PRBYTE LBLTSThh` +LԠH2 2 +LԠH2 2 +LԠH2 2 +LԠH2 2 +LϠө``H h` +LԠĠԠ +LԠŠҠxM LxM +NLLI) +N% N`% N` O +LȠˠԠϠՠȠϠſ ɰGɵ +LҠӠƠԠ )8 o dL >?% N`HHPQRShh`HHPQRSMLL xMLLɍLL :LL +LӠƠŠϠź o dL >ڥ?۩ Hɠɠ xMLdM N X +LŠ٠ō©Ԡˠԍé΍ĩԍŠҠč o dLɤ LL+NLiHhLh` 4 4014 `HHH hhh(`ɠ` X +LҠͧӍōҍéҠͧӠΠ K3 g dLɤ LLL &K K K2`Ā Hژ8LfJ TK8LhJL8KL'KH(`h躆`HHHc_![HHH0ȱ)#!H2 KH2hhh(`mHLKhhh(` K HHJJJJ Kh) ɺeL|ly@U)Iڙ IKL/ K Kۦ H K Kڤ cK K dHLL H K JLLhhhۥ H HHHڪچۅڰHH KHH Khh KJ K K K) K Kɀɠ K KLJ K K0 KH2O K Kڤ H K Kڤ cK K dH$ Kl)IFڪȱڨ cKLI!ɠ=9 K K KLIڪ cKLI۪eڐiȪ cKhhע@K) +L̠ŠčLL9)( T y`H LoL?x JJJJ)` HڨJ jɢ )Jb H)٘) JJJ Ȉ` HH؅ K HȐhֹש&*i K H٢ؐ K K`0 Kڐ HȘ KLK K`8٤۪eڐ`       AT (SOURCE,SOURCE+$1). "; IF THE TWO STRINGS ARE #; EQUAL THEN THE ACC WILL ; BE RETURNED EQUAL TO ; ZERO. IF THE STRING #; POINTED AT BY SOURCE IS #; GREATER THAN THE STRING #; POI THE LEFT TWO BITS ; LSDP MSDP ; ; ADD IN PREVIOUS VALUE. ;  LSDP LSDP  MSDP MSDP  ; ; ; ; STRCOM - STRING COMPARE. THE ; STRING POINTED TO BY ; (DEST,DEST+$1) IS "; COMPARED TO THE STRING ";P) ; CONTAIN EITHER THE #; PREVIOUS RANDOM NUMBER, ; OR A 16-BIT SEED. !; UPON EXIT (MSDP,LSDP) !; CONTAIN THE RANDOM #. #; A,X REGISTARS DESTROYED ; RANDOM LSDP MSDP ; RND2 : ; SHIFT TO ; TSTHEX #$7F '0 TSTDC #'9'+$1 TSTDS 'A TSTDC 'G TSTDC ; TSTDS  ; TSTDC  ; ; ; ; RANDOM - GENERATES A PSEUDO- #; RANDOM NUMBER EACH TIME ; IT IS CALLED. ; ON ENTRY (MSDP,LSDCUMULATOR IS CLEARED. ; TSTDEC #$7F '0 TSTD #'9'+$1 TSTD   TSTD  ; ; "; TSTHEX - TESTS THE CHARACTER IN !; THE ACCUMULATOR AND DETERMINES ; IF IT IS A VALID HEX DIGIT. "; IF SO THE CARRY IS SET, ELSE IT ; IS CLEARED. ;CHARACTER IN !; THE ACCUMULATOR AND DETERMINES !; IF IT IS A DECIMAL DIGIT ('0'- ; '9'). ON RETURN THE CARRY IS !; CLEAR IF THE CHARACTER WAS NOT "; A DECIMAL DIGIT, THE CARRY WILL ; BE SET IF THE CHARACTER WAS A "; DECIMAL DIGIT. H.O. BIT OF THE ; ACSR1 ; MSDP LSDP LLSR ; LLSR1 :  ; ; ; #; LLSL - LONG LOGICAL SHIFT RIGHT. ; #; SHIFTS (MSDP,LSDP) X BITS ; TO THE LEFT. ; LLSL :  LLSL1 LSDP MSDP LLSL ; LLSL1 ; ; ; ; "; TSTDEC - TESTS THE ; #; LLSR - LONG LOGICAL SHIFT RIGHT. "; IDENTICAL TO LASR EXCEPT "; THAT A ZERO GETS SHIFTED ; INTO BIT 16 INSTEAD OF !; COPYING BIT 16 INTO BIT ; 16. ; ; LLSR : ; !; NO NEED TO SAVE 16TH BIT HERE! ;  LL BIT IS SET ; MSDP  MSDP ; ; LASR1 : ; ; SEE IF DONE. ;  LASR2 ; ; RESTORE 16TH BIT IN CARRY ;   ; ; PERFORM ASR. ; MSDP LSDP ; ; REPEAT UNTIL THRU ; LASR1 ; LASR2 : ; ; FIX THE STACK. ;   ; ; 2 :   ; ; ; ; ; LASR - LONG ARITHIMETIC SHIFT ; RIGHT. ; "; SIMILAR TO LASL EXCEPT BITS ARE ; SHIFTED TO THE RIGHT. ; THE FIRST BIT ENDS UP IN THE ; CARRY AND BIT 16 GETS COPIED ; INTO ITSELF. ; LASR : ; ; DETERMINE IF 16THLASL : ; !; DETERMINE WHETHER FIRST BIT IS ; ON OR OFF. ; LSDP  LSDP ; LASL1 : ; ; SEE IF THRU. ;  LASL2 ; ; GET COPY OF FIRST BIT. ;   ; ; PERFORM ASL. ; LSDP MSDP ; ; REPEAT UNTIL THRU ; LASL1 ; LASL TO !; THE LEFT, WHERE X IS PASSED IN ; THE X-REGISTAR. NO CHECK IS ; MADE AS TO WHETHER OR NOT X ; IS GREATER THAN 16. IF X IS ; 0 NO SHIFT WILL TAKE PLACE. #; THE 16TH BIT IS SHIFTED INTO THE ; CARRY AND THE FIRST BIT IS ; COPIED INTO ITSELF. ; REQUIRED HERE. ; (YOU MAY REASSIGN TO FIT YOUR ; NEEDS) ; LSDP $0 MSDP LSDP+$1 SOURCE MSDP+$1 DEST SOURCE+$2 ; ; !; LASL - LONG ARITHIMETIC SHIFT ; LEFT. ; ; SHIFTS CONTENTS OF MEMORY "; LOCATIONS (MSDP,LSDP) X BITSR SYSTEMS. * ; * ALL RIGHTS RELEASED. * ; * * ; * AUTHOR: RANDY HYDE * ; * APPLE II COMPUTER. * ; * JULY 1979 * ; * * ; ************************** ; ; ; ; ; ZPAGE VARS; ; ************************** ; * * ; * UTILITIES....... * ; * * ; * SEVERAL MISC USEFUL * ; * ROUTINES. * ; * * ; * (C) 1979 BY: * ; * LAZE       E IF THRU INS3 ; ; ; NOW TRANSFER TEXT FROM PAGE 2 ; TO MAIN MEMORY ; INS2 @R3  @R5 R6 INS2  @R3 INS4 ; ; ; ; ALL THRU INSERTING HERE. ; BRING DOWN THE TEXT PLACED ; IN HIGH MEMORY ; INS3 R6,HIMEM R3 R2 INS5 INS4 INS4  @R5  @R4 INS1 ; ; ; NOW, ACCEPT TEXT AND STORE IN #; MEMORY UNTIL A RETURN IS PRESSED "; AS THE FIRST CHARACTER OF A NEW ; LINE. ; INS4 : GETLNREAD A LINE OF TEXT R5,INPUT  R6,$8DINIT R6 WITH RETURN  @R5 R6SERT : SW16  R4,HIMEMINIT HIMEM POINTER R2TRANSFER R2 TO R5 R5 ; ; SEE IF AT END-OF-FILE ; R3 INS1 ; ; IF SO, INCREMENT EOF POINTER. ; R5 ; ; "; NOW, MOVE ALL TEXT PAST CURRENT ; LINE UP TO HIGH MEMORY ; INS1 R5 R3 RESTORE THE "END-OF-FILE" POINTER ; R6 R2 ; DEL3 COMMND ; ; ; ; *********************** ; * * ; * INSERT: PUTS USER IN* ; * THE INSERT MODE. * ; * * ; *********************** ; ; INSEDEL1 @R5 R4TEST FOR RETURN DEL2 R5 R2END OF MEMORY? DEL1 DEL3IF SO, QUIT ; DEL2 : R3 !R6TRANSFER CURRENT LINE TO R6 ; ; ; NOW MOVE ALL OF THE TEXT DOWN ; IN MEMORY ; DEL4 @R5  @R6 R5 R2 DEL4 ; $; * ; * DELETE: DELETES THE* ; * CURRENT LINE * ; * * ; ********************** ; ; DELETE SW16  R4,$8DLOAD RETURN FOR CMP R3TRANSFER R3 TO R5 R5 ; ; "; NOW FIND THE END OF THE CURRENT ; LINE. ; - A SWEET- * ; * 16 SUBROUTINE * ; * WHICH PRINTS THE * ; * L.O. BYTE OF THE * ; * ACC ONTO THE CRT. * ; * * ; ********************* ; ; ; PRTCHR R0 $FDED SW16  ; ; ; ; ********************** ; * (R3) ; TO THE FIRST LINE ; R3,STRTXT ; &; NOW, GET EACH CHARACTER IN THE FILE (; AND PRINT IT UNTIL THE EOF IS REACHED ; LIST1 @R3 PRTCHR R3 R2 LIST1  COMMND ; ; ; ********************* ; * * ; * PRTCHR CMND2 : PERRPRINT "ERR" COMMND ; ; ; ; ********************* ; * * ; * LIST- LISTS THE * ; * ENTIRE FILE. * ; * * ; ********************* ; ; LIST SW16 ; #; MOVE "CURRENT LINE POINTER" INPUT ; ; NOW PARSE THAT CHARACTER ; "#"I"IF "I" GO INTO INSERT MODE INSERT #"L"IF "L" LIST FILE LIST #"D"IF "D" DELETE LINE DELETE #"U"MOVE UP ONE LINE CMND1 UP ; CMND1 #$8DNEXT LINE HERE CMND2 DOWN ; ; DTXT  R3,STRTXTCURRENT LOCATION  RC,$340INIT SW16 STACK  ; HOME ; COMMND : ; ; GET USER COMMAND & PARSE ; ; ; INITIALIZE PROMPT FIRST ; #":" $33 ; ; NOW READ A LINE OF TEXT ; RDLN ; $; GET FIRST CHARACTER TYPED ON LINE ;0 HIMEM $6800 ; ; ; VARIABLES ; INPUT $200INPUT STRING R0 $0SWEET-16 REG ZERO ; ; SW16 $F689 HOME $FC58 RDLN $FD67 PERR $FF2D ; ; EDIT : SW16 ; ; INITIALIZE POINTERS HERE ; R1,STRTXT R2,ENARE SADISTIC ENOUGH TO "; WANT TO USE THIS TYPE OF EDITOR &; INSTEAD OF ONE OF THE NICER EDITORS $; ON THE MARKET, SUCH AS APPLE PIE, "; I WOULD SUGGEST THAT YOU EXPAND ; ON IT GREATLY ; ; ; ; ; COLDSTART CONSTANTS ; STRTXT $6000 ENDTXT $600PLE II COMPUTER ; W/INTEGER BASIC ; 9/20/79 ; ; !; NOTE: THIS TEXT EDITOR IS VERY !; CRUDE. IT IS PRESENTED SOLELY ; AS AN EXAMPLE OF THE SWEET-16 ; PSEUDO PROCESSOR. "; THIS ENTIRE TEXT EDITOR FITS IN ; LESS THAN 256 BYTES! ; IF YOU > ; ************************* ; * * ; * A SIMPLE, LINE ORIENT-* ; * ED EDITOR USING SWEET * ; * SIXTEEN. * ; * * ; ************************* ; ; ; AUTHOR:RANDY HYDE !; INSTALLATION:AP            ************ ; ; COPY : GETC #EOFTEST FOR END-OF-FILE COPYXT PUTCOUTPUT CHARACTER COPY COPYXT QUIT ; ; ; ; ************************ ; * * ; * CHRCNT - CHARACTER * ; * COUNT. READS ALL THE * ; * CHA PRTMSG ; EOFLAG 00 ; ; ; ; ; ; ; ************************ ; * * ; * COPY- COPY CHARACTERS* ; * FROM STANDARD INPUT * ; * AND OUTPUT TO STAND- * ; * ARD OUTPUT. * ; * * ; ************SE PRINT !; ERROR AND PERFORM A WARMSTART. ; ; GERR : /EOFLAGTEST TO SEE IF EOF IS ALREADY REACHED GERR1 ; #TRUE EOFLAGSET UP EOF FLAG #EOFRETURN W/EOF CHARACTER.  ; ; ; GERR1 : #WARMST DOSERR /WARMST DOSERR+$1 ERR DOSERR+$1 ; 80 %RUNMODINFORM DOS A PGM IS RUNNING #$FF LANGFAKE APPLESOFT $ONERRSIMULATE AN ONERR GOTO GERR ; 0KEYINGET DESIRED CHARACTER FROM INPUT DEVICE ;  ; "; DISK ERROR OCCURED, IF EOF THEN #; SET EOF TO TRUE. OTHERWI * VARIABLE EOF IS * ; * SET TO TRUE. * ; * IF EOF WAS AL- * ; * READY TRUE THEN * ; * A WARM START WILL* ; * OCCUR. * ; * * ; ******************** ; ; GETC : ; #GERR DOSERR /G******** ; * * ; * GETC - GETS A * ; * CHARACTER FROM * ; * THE CURRENT INPUT* ; * DEVICE. * ; * IF INPUT IS * ; * FROM THE DISK AND* ; * THE END-OF-FILE * ; * IS ENCOUNTERED, * ; : SAVE CHARACTER IN ACC. ; #WARMSTSET UP ERROR RECOVERY DOSERRPOINTER /WARMST DOSERR+$1 ; #$80 %RUNMODINFORM DOS A PGM IS RUNNING ; GET CHARACTER TO BE PRINTED. #$80 COUTPRINT IT!  ; ; ; ; ; ; ************ TO THE * ; * CURRENT OUTPUT * ; * DEVICE. * ; * * ; * IN THE EVENT OF A * ; * DISK ERROR A COLD- * ; * START IS PERFORMED.* ; * * ; ********************** ; ; PUTC RUE $1 FALSE $0 BLANK " " TAB $89TAB CHARACTER ZERO "0" EOS $00END-OF-STRING ; ; ; ********************** ; * * ; * PUTC - OUTPUTS THE * ; * CHARACTER IN THE * ; * ACCUMULATOR $D8ON ERROR FLAG RUNMOD $D9RUN MODE FLAG !ERROR $DEDOS ERROR LOCATION (PRTMSG $A6E1PRINT DOS ERROR MESSAGE ; ; CONSTANTS ; CTLD $84CONTROL-D CR $8DRETURN NWLINE $8DNEWLINE CHARACTER EOF $00EOF CHARACTER TARACTER OUT LOCATION -KEYIN $FD0CAPPLE CHARACTER IN LOCATION GETLNZ $FD67 ; ; ADDRESS LOCATIONS ; %DOSERR $9D5AVECTOR FOR DOS ERROR !DOSCLD $9D5CCOLDSTART VECTOR !DOSWRM $9D5EWARMSTART VECTOR LANG $AAB6LANAGUAGE FLAG ONERR TESTED. ; ;  ; ; ; ZERO PAGE WORKSPACE ; ZPAG $00 ; ; APPLE DOS 3.2 WORKING AREAS ; ; JUMP VECTORS ; %WARMST $3D0WARMSTART JUMP VECTOR %COLDST $3D3COLDSTART JUMP VECTOR INTDOS $3EARE-INITS DOS 3.2 -COUT $FDEDAPPLE CH*************************** ; ; SOFTWARE TOOLS- BASED ON ; PROGRAMS, UTILITIES ETC. ; FOUND IN THE BOOK ; "SOFTWARE TOOLS" BY KERNIGHAN ; & PLAUGER. ; TRANSLATION BY RANDY HYDE ; AUGUST 1979 ; #; WARNING: THESE ROUTINES HAVE NOT ; YET BEEN FULLYSTATE-OF-THE ART. ; ; FOR PEOPLE WHO LIKE THE UNIX !; OPERATING SYSTEM, AND ALL THE "; NEAT UTILITIES THAT GO WITH IT ; I SUGGEST YOU CHECK OUT THE ; ANIX OPERATING SYSTEM. ; ; RANDY HYDE ; -- 1981 ; ; #;******1>; ; BEFORE WE BEGIN- AN APOLOGY. ; "; THESE ROUTINES WERE WRITTEN IN "; LATE 1979. THEY ARE NEITHER A !; GOOD EXAMPLE OF 6502 ASSEMBLY !; LANGUAGE PROGRAMMING, NOR ARE ; THEY PARTICULARLY USEFUL. ; "; MOST OF ALL THESE ROUTINES ARE ; NOT                                    AL THANKS GOES TO LOYAL ; LISA SUPPORTERS WHO'VE BEEN #; AROUND SINCE THE EARLY 1.2, 1.3, !; 1.5, AND 2.2 VERSIONS. THANKS ; FOR MAKING LISA THE FAVORED ; ASSEMBLER ON THE APPLE II. ; YOUR SUPPORT HAS MADE THE ; "NEW AND IMPROVED" VERSIONS ; OF LISAORE THAN ; HAPPY TO HELP YOU WITH SUCH !; A PRODUCT, CALL KEN AT ON-LINE "; AND DISCUSS YOUR IDEA WITH HIM. ; IF HE CAN'T HELP YOU HE CAN ; TELL YOU HOW TO GET AHOLD OF ; ME. ; ; I WOULD PERSONALLY LIKE TO !; THANK YOU FOR PURCHASING LISA. ; SPECI ; PROJECT. TO GIVE YOU AN IDEA ; OF WHAT TYPE OF MARKET YOU #; CAN REACH, LISA AS OF 6/1/81 HAS ; SOLD SOMEWHERE BETWEEN 5,000 ; AND 10,000 COPIES. SALES ARE ; INCREASING AND ARE CURRENTLY !; PEGGED AT ABOUT 300 PER MONTH. ; ; AS I SAID, I'LL BE MUCE ; USERS TO WRITE UTILITIES AND ; OTHER SUPPORT PROGRAMS FOR ; LISA. I'M SURE KEN WILLIAMS ; WOULD BE MORE THAN HAPPY TO "; HELP YOU MARKET SUCH A PROGRAM, ; AND I WILL CERTAINLY PROVIDE ; SUPPORT AND IDEAS FOR USERS ; WISHING TO ATTEMPT SUCH A THE INPUT ; LINE EDITOR AND THE ASSEMBLER ; PROPER ARE SO KLUDGED UP FROM !; ALL THE ADDITIONS MADE TO LISA !; OVER THE PAST 2 1/2 YEARS THAT "; EVEN I HAVE TROUBLE UNDERSTAND- ; ING THEM. ; ; AS MENTIONED, I HOPE THESE ; SOURCE LISTINGS HELP INDRED REWRITTING ; LISA LIKE I SHOULD HAVE. THE !; PORTIONS YOU'RE GETTING AREN'T ; AS BAD AS THE REST OF LISA !; (WHICH IS THE MAIN REASON I AM ; NEVER GOING TO RELEASE THE ; SOURCES OF THE ENTIRE V2.5 ; ASSEMBLER), AT LEAST THEY'RE ; UNDERSTANDABLE.; MICROPRODUCTS ASSEMBLER. "; CALLING THAT ASSEMBLER CRUDE IS ; COMPLIMENTING IT. OF COURSE "; HAVING POOR TOOLS WAS ONLY PART !; OF THE PROBLEM: I'VE LEARNED A #; LOT ABOUT 6502 ASSEMBLY LANGUAGE !; SINCE I ORIGINALLY WROTE LISA, %; AND I'VE NEVER BOTHER TWO OF THEM MAY CAUSE SOME ; PROBLEMS WITH THE INPUT LINE "; EDITOR AND THE ASSEMBLER PROPER ; ; ; ; FINALLY, I WOULD LIKE TO ; APOLOGIZE FOR SOME OF THE ; KLUDGES FOUND IN LISA. !; LISA WAS FIRST WRITTEN IN LATE ; 1978 / EARLY 1979 USING THE ; FOUR CHARACTER ASSEMBLER AND ; AS SUCH EQUATES HAD TO BE !; DUPLICATED THROUGHOUT THE TEXT ; FILES SINCE NO "ICL" PSEUDO ; OPCODE WAS AVAILABLE. !; YOU'RE ONLY GETTING TWO OF THE !; FIVE SOURCE FILES THAT MAKE UP !; LISA. CHANGING EQUATES IN ONE ; O ALL THE AREA BETWEEN P2.L AND ; $EBE0 ($6BE0). ; "; ALL THE AREA AFTER THE END OF ; THE P6.TXT LISTING THROUGH ; $DFFF IN THE $C080 RAM BANK ; ; WARNING!!! DON'T CHANGE ANY ; EQUATES. LISA WAS ORIGINALLY !; WRITTEN WITH THE MICROPRODUCTS  "; IN TEXT FILE FORMAT OF ; THE LAST PORTION OF ; LISA CONTAINING THE #; CLOCK DRIVERS AND OTHER ; USEFUL INFORMATION. ; ; ; PATCH AREAS AVAILABLE: ; "; ALL THE AREA BETWEEN P1.L AND ; P2.L ; "; P1.L- THE COMMAND PROCESSOR ; PORTION OF LISA 2.5A. ; "; P2.L- THE INPUT/OUTPUT PORTION ; OF LISA 2.5A. (ALMOST "; IDENTICAL TO THE LZR IOS ; PACKAGE PROVIDED WITH ; LISA 1.5F.) ; ; P6.TXT- AN ASSEMBLED LISTINGRAM. THIS SOURCE LISTING !; DOES NOT GIVE YOU THE RIGHT TO ; MODIFY A PORTION OF LISA AND #; SELL IT AS YOUR OWN WORK. THAT, ; OF COURSE, IS THE LOWEST FORM ; OF SOFTWARE PIRACY. ; ; ENOUGH OF THE BAD STUFF. ; ; HERE'S WHAT I'M GIVING YOU: ; ; FAITH. IT IS NOT A "; LICENSE TO STEAL. HOPEFULLY BY ; PROVIDINGG THIS SOURCE I CAN ; ENCOURAGE THE USER COMMUNITY ; TO CREATE PROGRAMS THAT WORK ; WITH LISA (SUCH AS BETTER ; EDITORS, UTILITIES, ETC). ; #; REMEMBER, LISA IS A COPYRIGHTED ; PROG&C " "LISA SOURCE LISTING -- PART 1" ; ; ; LISA SOURCE LISTING: PART 1. ; "; THIS SOURCE LISTING IS INCLUDED !; AS PART OF THE LISA PACKAGE TO ; HELP YOU PATCH LISA FOR YOUR ; PARTICULAR SYSTEM. ; #; THIS SOURCE LISTING IS PROVIDED ; IN GOOD                         ,$8D  0 ; ;  'FP'  MSG2 8D84  "BLOAD ASM.CODE.2,A$D000"  $8D,0 ; ; ; LOAD LISA 48K ; NOLANG #1 $AAB1 ; #0 PRTM2LP MSG3,X M3DONE $FDED  PRTM2LP ; M3DONE $6000 ; #MSG3 $8D,$84,"MAXFILES 1",$8D " $84,"BLOAD ASM.CODE,A$6000" 64K LISA ; #$0 $C089 $C089 LBL MSG,Y LBL1 $FDED  LBL LBL1 $C083 $C083 $C083 #$0 LBL2 MSG2,Y LBL3 $FDED  LBL2 ; LBL3 $C080 $E000 MSG 8D84  "BLOAD ASM.CODE.1,A$D000"  8D00#0 ; PRTMSG0 MSG0,X MSG0DONE $FDED  PRTMSG0 ; MSG0 $8D  "LOADING LISA",0 ; ; SEE IF THEY HAVE A RAM CARD ; MSG0DONE: $C083 $C083 #0 $E000 $E000 NOLANG #$FF $E000 $E000 #$FF NOLANG ; ; LOAD "LISA IPL -- MXFLS" ; ; MXFLS SOURCE ; COMMON CODE FOR BOTH 64K LISA ; AND 48K LISA ; #$4CJMP INSTRUCTION $A57A $A59E #$84DOS COLDSTART ADDRESS $A57B $A59F #$9D $A57C $A5A0 #$EANOP $A6DF $A6E0 $FC58     ÍŠù РŰưѠͰŰŸҠÍԠе̠ƠƵԠ̲ƱŸҠԍƴàƷؠƸŠҠˍ  àĠРҠİŠűųؠŴؠŶĠ̲̬؍ŹŸҠÍàŸؠĠŰؠŠԠà̭̠ЭƭͩøĠԠčùàààƠŠIJĵĸ ĠӠŠŠ̱Ơðò ԍôŸҠԍ÷à¸ĠҠРƠ͍¸ӠĮ¸¸¸̺¸ĠŰ̍ İҠ̱ӮƠՠȠӍ¸ΠƠŠŠՍ¸ŠŠӮ¸¸¸¸¸ՠ٠ŠҠΠˍ¸ҠҠҠҍ¸ˮ٠Ӡč¸͠ŠӠ΍¸ƠŠŠĠȍ¸¸Ԡ¸¸¸ŠǠΠƍ¸ŠӠԠƠō¸ŠϠŠҮ¸¸